Question

Вычислите произведение чисел от 1 до 5 используя различные варианты циклов

Answer 1

k:=1
For i:=1 to 5 do
k:=k*(k+1);


i:=1;
k:=1;
While i < 6 do
Begin
i:=I+1;
k:=k*(k+1)
End;