Даны два числа А и В. Подсчитайте количество натуральных чисел на отрезке от А до В, сумма цифр которых четна. Нужна программа в Паскале

Вопрос от пользователя: Петряка

Даны два числа А и В. Подсчитайте количество натуральных чисел на отрезке от А до В, сумма цифр которых четна. Нужна программа в Паскале

Ответ: Абрам

Var b, a, d1, d2, i, j: integer;

c: string;

begin

readln (a, b);

for i : = a to b do

begin

d1 : = 0;

c : = inttostr (i);

for j : = 1 to length (c) do

d1 : = d1 + strtoint (c[j]);

if (d1 mod 2 = 0) then inc (d2);

end;

writeln (d2);

end.