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
Задача №6:
var
a, b: Integer;
begin
Read (a, b);
if a mod 2 = 1 then
WriteLn (a + b)
else
WriteLn (a * b)
end.
Задача №7:
var
x, y: Real;
begin
Read (x);
if x > 0 then
y := x - 12
else
if x < 0 then
y := sqr (x)
else
y := 5;
WriteLn (y)
end.