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

Question

Информатика

Полиект

7 февраля, 02:09

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

+1

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