Ответы
Ответ дал:
0
var
s, a, n, i : longint;
begin
read (a, n);
s := 1;
for i := 0 to n - 1 do
s := s * (a + i);
writeln (s);
end.
Похожие вопросы
2 года назад
7 лет назад
10 лет назад
10 лет назад
10 лет назад