Определите, что будет напечатано в результате выполнения следующего алгоритма: var s,k: integer; begin s: =1; for k: =1 to 30 do s: =(k-5)*s; write(s); end.

 В результате выполнения этой программы будет напечатан 0

 Если трассировать программу по шагам то мы увидим что  s меняется в цикле вот так

 s1=-4

s2=12

 s3=-24

s4=24

Начиная с 5 шага получаем (5-5)*s т.е  0 и далее чтобы мы на 0 не умножали так и будет 0