С1 1)при заданном n вычислить n факториал

Любовь1203 Любовь1203    1   03.07.2019 04:00    0

Ответы
sloppysec sloppysec  02.10.2020 19:03
Var
N,N1:integer;
Begin
N1:=1;
Write('N = ');ReadLn(N);
For N:= 2 to N do
 N1:=N1*N;
 WriteLn(N,'! = ',N1)
End.

Во вложении вариант для Pascal ABC.net
ПОКАЗАТЬ ОТВЕТЫ
sakhnovavaleri1 sakhnovavaleri1  02.10.2020 19:03
Var n,i: Integer;
f: LongInt;
begin 
writeln('vvedite n=');
readln(n);
f:=1;
for i:=1 to n do
f:=f*i;
writeln('faktorial=',f);
readln;
end.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика