Анаклет
5 год назад
Дано целое число N (>0). Найти произведение N!=1*2...N(В Delphi.7 пожалуйста)
ОТВЕТЫ
Първан
Oct 24, 2020
{$APPTYPE CONSOLE}
Var
F:real;
N:integer;
Begin
Write('N = ');
ReadLn(N);
F:=1;
For N:= 1 to N do
F:=F*N;
Write(N,'! = ',F);
ReadLn
End.
Var
F:real;
N:integer;
Begin
Write('N = ');
ReadLn(N);
F:=1;
For N:= 1 to N do
F:=F*N;
Write(N,'! = ',F);
ReadLn
End.
90
Смежные вопросы:
