Program gsdn; Var i,n,z: integer; Begin writeln('Введите n'); readln(n); z:=1; For i:=1 to n do z:=i*z; Writeln('n факториал =',z); end.
1 votes Thanks 1
mmmegakilll
Ну uses crt инициализирует модуль crt, который не нужен в данной задаче , хотя если задача используется в Borland Pascal или подобном, то можно его поставить. А uses crt используется для очистки вывода после завершения программы, и использовать его тоже нужно только в Borland Pascal и подобных ему, т.к. там с выводом будет не удобно. А я работаю на PascalABC и мне не нужны данные строки:)
Answers & Comments
Verified answer
Program gsdn;Var i,n,z: integer;
Begin
writeln('Введите n');
readln(n);
z:=1;
For i:=1 to n do
z:=i*z;
Writeln('n факториал =',z);
end.