07.02.2008, 13:08
общий
это ответ
Здравствуйте, Бекмансуров Рамиль Рашидович! Вот так это можно реализовать в программе. Дерзайте.
var a,b,i,summ:integer;
begin
Writeln(‘Введите А и В‘);
readln(a,b);
for i:=a to b do
if i mod 4 = 0 then summ:=summ+i;
Writeln(‘Сумма = ‘,summ);
readln
end.