Question

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

Answer 1

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

 

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

 

 s1=-4

s2=12

 

 s3=-24

s4=24

 

 

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