Определите, что будет напечатано в результате выполнения следующего алгоритма:   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