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

Сумма цифр.

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

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

Задать свой вопрос
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.
, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт