Ответы на вопрос:
Var n,a,res: integer; i: integer; begin n: =1; write('введите n: '); readln(n); write('введите a: '); readln(a); res: =a; for i: =1 to n do begin res : = res*(a-i); end; writeln('ответ: ',res) end.пример: введите n: 2 введите a: 4 ответ: 24
Популярно: Информатика
-
цветочек12011.10.2022 23:15
-
Gangster99530614.02.2021 23:16
-
rrrl110.12.2022 05:55
-
MilanaKnyazeva23089902.09.2021 00:26
-
Lasaolnaser06.06.2022 06:13
-
Diannata13.03.2023 02:51
-
kvaki25798931.10.2020 12:52
-
ychenik55555555509.11.2020 11:53
-
aguanapfel21.01.2020 07:11
-
Даниил22322305.11.2022 12:38