Вводится n. найти произведение натуральных чисел от 1 до n. 3 способами (циклами) для PaskalABC.

program zz1;

var n, i, p:integer; / / вводим переменную целого типа

begin

write (' введите число n '); / / вводим с клавиатуры число

read (n);

p:=1;

for i:=1 to n do / / 1 способ

begin

p:=p * i;

end;

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

p:=1;

i:=1;

while i<=n do / / 2 способ

begin

p:=p * i;

i:=i + 1;

end;

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

p:=1;

i:=1;

repeat / / 3 способ

p:=p * i;

i:=i + 1;

until i>n;

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

end.