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.