с помощью паскаля вычислить сумму всех четных чисел от m до n.

var

i, m, n, sum: integer;

begin

/ / реализовываем ввод

write ('Введите число m ');

readln (m);

write ('Введите число n ');

readln (n);

sum:=0;

/ / запускаем цикл со счетчиком i от m до n,

/ / в цикле проверяем если остаток от деления i на 2 равен 0 то i четное,

/ / значит увеличиваем сумму - sum на i

for i: = m to n do

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

/ / вывод результата

writeln ('сумма всех четных чисел от ', m,' до ', n,' равна ', sum)

end.