Question

Створіть програмний код для розв'язання наступної задачі: знайти суму додатних парних чисел від 100 до 200. (Числа 100 200 також включати в суму). пожалуйста помогите 50 Баллов.

Answer 1

Ответ:

Сумма=7650

Объяснение:

Программа:

var sum:integer;

begin

 sum:=0;

for var i:=100 to 200 do begin

  if i mod 2=0 then

    sum:=sum+i;

end;

writeln (sum);

end.