помогите, пожалуйста, написать программу в Паскале
Приложения:
BobbyFresnel:
А значит, надо привлекать модулярную арифметику. Но не понимаю, зачем такие вузовские понятия пихать в школьные олимпиады.
Ответы
Ответ дал:
1
===== PascalABC.NET =====
begin
var a := ReadArrInteger(6);
for var i := 0 to 2 do
begin
var n := a[2 * i];
var m := a[2 * i + 1];
if m <= n then
Println(0)
else
begin
var p := 1;
for var j := 2 to n do
p := p * j mod m;
Println(p)
end
end
end.
Вас заинтересует
4 месяца назад
4 месяца назад
5 месяцев назад
2 года назад
7 лет назад