Ответы
Ответ дал:
0
var summ: integer;
begin for var i:=30 to 100 do begin if (i mod 3) = 0 then summ := summ + i; end; writeLn('сумма = ', summ);end.
begin for var i:=30 to 100 do begin if (i mod 3) = 0 then summ := summ + i; end; writeLn('сумма = ', summ);end.
Ответ дал:
0
переносы строки сбились правда)
Ответ дал:
0
и прошу прощения, у нас ведь строго больше 30, значит строка for var i:=30 to 100 do begin заменяется на for var i:=31 to 100 do begin
Вас заинтересует
1 год назад
6 лет назад
6 лет назад
8 лет назад
8 лет назад
9 лет назад