Составить программу нахождения n! факториала на Pascal

Question

Информатика

Сенюра

30 июля, 14:17

Составить программу нахождения n! факториала на Pascal

+2

Ответы (1)

Знаете ответ?

Маруся · Answer 1

Program n1;

var

n, i: integer;

p: real;

begin

write ('Введите n: ') ;

readln (n) ;

p : = 1;

for i : = 2 to n do

p : = p * i;

writeln (n, '! = ', trunc (p)) ;

end.