Ответы на вопрос:
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.
Популярно: Информатика
-
boykodiana5719.02.2021 13:13
-
Error6923.11.2020 11:05
-
PavlWhite24920.04.2023 01:55
-
ruslanbaxsiev7929.05.2020 03:38
-
yanazaharova9609.02.2020 13:30
-
W1LDOR10.04.2020 17:53
-
Лубничка24.12.2021 01:07
-
CEVA5555520.05.2023 08:59
-
nastyasmirniv07.07.2020 00:28
-
Ataka405.04.2023 21:17