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

На пятом шаге параметр k станет равным 5. Множитель k - 5 при этом станет равным нулю. Переменная s после окончания цикла представляет собой произведение числа 1 (стартовое) на числа от - 4 до 25, включая 0:

s = 1 * (-4) * (-3) * (-2) * (-1) * 0 * 1 * ... * 25. Поскольку среди множителей есть число 0, то произведение будет равно нулю.

Ответ: в результате будет напечатано число 0.