Ответы на вопрос:
Program factorial; var n,s: integer; readln(n); if (n=0) then writeln('0! =1') else if (n< 0) then writeln('определяется только для положительных чисел') else begin s: =1; for i: =1 to n do s: =s*i; writeln(n,'! ='s: 0: 0); end;
Популярно: Информатика
-
Laly00915.03.2023 22:40
-
Пвлчлчпс03.12.2022 01:04
-
kistina227.10.2022 12:35
-
belovaan80p073pt03.04.2023 17:44
-
ksyhaua0406ozoo6s22.10.2022 17:11
-
Spasibousjsjswj25.02.2022 13:29
-
Артём200670602.08.2020 23:03
-
nikita01127892315.11.2020 14:40
-
emeljanenkoira28.09.2021 06:23
-
бородкин04.01.2021 07:50