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

Begin

S:=1;

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

writeln(s)

end.

Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку