Найти произведение натуральных чисел от 1 до n

Question

Информатика

Степанка

18 июля, 04:49

Найти произведение натуральных чисел от 1 до n

+5

Ответы (1)

Знаете ответ на вопрос?

Вася · Answer 1

Pascal abc;

var a, n, pr: longint;

begin

pr:=1;

writeln ('введите число n ') ;

readln (n) ;

for a:=1 to n do begin

pr:=a*pr;

end;

writeln ('произведение чисел от 1 до ', n,' = ', pr) ;

end.