:определите, что будет напечатано в результате работы следующего фрагмента программы: var n, s: integer; begin n : = 24; s : = 0; while n < = 28 do begin s : = s + 20; n : = n + 2 end; write(s) end.

На экран выведется это:
20

Тело цикла будет выполнено 3 раза при n = 24, 26, 28. По шагам выглядит так:
s = 0  n = 24
s = 20  n = 26
s = 40  n = 28
s = 60
ответ: s = 60