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

Question

Информатика

Венура

16 июня, 02:52

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

+5

Ответы (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.