Сумма цифр. даны два числа а и в. подсчитайте кол-во натуральных чисел на отрезке от а до в , сумма цифр которых четна. программа получает на вход два натуральных числа а и в, не превосходящих 10^9^ а< =в . программа должна вывести одно число - кол-во натуральных чисел, больше или равных а и меньших или равных в, сумма цифр которых четна.
s: string;
begin
readln(a, b);
for i := a to b do
begin
s := inttostr(i);
for j := 1 to length(s) do
n := n + strtoint(s[j]);
if (n mod 2 = 0) then
inc(c);
end;
writeln(c);
end.