Ответы на вопрос:
program p1;
uses crt;
function factorial (n: integer): integer; var p,i: integer; begin p: =1; for i: =1 to n do p: =p*i; factorial: =p; end;
var n: integer;
begin
write('введите число, n=');
readln(n);
writeln('факториал = ',factorial(n));
end.
Популярно: Информатика
-
Vlada181526.04.2020 12:07
-
Губанова123403.06.2020 19:17
-
orrection12443304.10.2022 11:44
-
BOYECH20.04.2023 15:35
-
nimblefish03.11.2021 15:21
-
Stupidpeoplenamber126.05.2021 11:08
-
JackTYLER08.01.2020 04:36
-
kobita03.10.2020 03:17
-
Alencka11113.04.2022 22:20
-
Юлясруля03.03.2020 05:18