Question

Запишите, сколько раз будет выполнен цикл, заданный в программе:
Var s, k:integer;

Begin

S:=1;

for k:=1 to 30 do s:=(k-5)*s;

writeln(s)

end.

Answer 1

Ответ:

30

Объяснение:

К=1 а і має повторюватися 30 раз