Ответы на вопрос:
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.
Популярно: Информатика
-
ilariyao12.08.2021 05:53
-
kikl3302.12.2021 03:26
-
zoriy2214.10.2022 19:04
-
ddcgsshrdfydd05.04.2023 21:09
-
susovaanastasia27.10.2022 11:06
-
alopavopa10.03.2020 19:17
-
roman28604.01.2022 21:38
-
iyvvann23.12.2022 00:38
-
hoteleleon310.12.2022 02:16
-
DXDynamic3104.05.2023 18:27