Сумма цифр. Даны два числа А и В. Подсчитайте кол-во натуральных чисел на отрезке от А до В , сумма цифр которых четна. Программа получает на вход два натуральных числа А и В, не превосходящих 10^9^ А меньше =В . Программа до...
Сумма цифр. Даны два числа А и В. Подсчитайте кол-во натуральных чисел на отрезке от А до В , сумма цифр которых четна. Программа получает на вход два натуральных числа А и В, не превосходящих 10^9^ А<=В . Программа должна вывести одно число - кол-во натуральных чисел, больше или равных А и меньших или равных В, сумма цифр которых четна.
Гость
Ответ(ы) на вопрос:
Гость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.
Не нашли ответ?
Похожие вопросы