Найти сумму положительных четных чисел, больших 150 и меньших 200 pascal

Question

Василько

29 мая, 02:16

+3

Ответы (2)

Знаете ответ на вопрос?

Сана · Answer 1

Сумма понятие у тебя ошибка сумму невозможно найти!

Светуша · Answer 2

Var i, s:integer;

begin

s:=0;

for i:=150 to 200 do

if i mod 2=0 then s:=s+i;

writeln (s) ;

end.