Срочно! Задача должна быть решена на языке програмирования турбо паскаля! "Найти сумму всех четных чисел из промежутка от A до B!"

1

Ответы и объяснения

Лучший Ответ!
2012-03-11T02:57:40+04:00

Это Проверенный ответ

×
Проверенные ответы содержат надёжную, заслуживающую доверия информацию, оценённую командой экспертов. На "Знаниях" вы найдёте миллионы ответов, правильность которых подтвердили активные участники сообщества, но Проверенные ответы - это лучшие из лучших.

var i,s,a,b:integer;

BEGIN

  read(a,b);

  s:=0;

  for i := a to b do

    if i mod 2 = 0 then

      s:= s + i;

  writeln(s);

END.