Сумма цифр.

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

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

Question

Информатика

Филарета

3 августа, 22:33

Сумма цифр.

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

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

+5

Ответы (1)

Знаете ответ?

Ириша · 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.