желательно сразу с расчётами Определите что будет напечатано в результате выполнения программы var n,s: integer;
begin
n:=0; s=:0;
while s <=365 do
begin
s:=s+18;
n:=n+6
end;
write(n)
end.

126

Объяснение:

В каждой итерации цикла к переменной S прибавляется 18, а к n - 6. Цикл будет остановлен, когда S окажется больше 365, следовательно до этого момента он сработает 365/18 = 21 раз.

Переменная n за 21 итерацию увеличится на 21*6 = 126.

ΔS = 0 -> 18 -> 36 -> 54 -> 72 -> 90 -> 108 -> 126 -> 144 -> 162 -> 180 -> 198 -> 216 -> 234 -> 252 -> 270 -> 288 -> 306 -> 324 -> 342 -> 360 -> 378

ΔN = 0 -> 6 -> 12 -> 18 -> 24 -> 30 -> 36 -> 42 -> 48 -> 54 -> 60 -> 66 -> 72 -> 78 -> 84 -> 90 -> 96 -> 102 -> 108 -> 114 -> 120 -> 126