Question

Сумма цифр. даны два числа а и в. подсчитайте кол-во натуральных чисел на отрезке от а до в , сумма цифр которых четна. программа получает на вход два натуральных числа а и в, не превосходящих 10^9^ а< =в . программа должна вывести одно число - кол-во натуральных чисел, больше или равных а и меньших или равных в, сумма цифр которых четна.

Answer 1

Var n, j, i, a, b, c: integer;
    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.