Задание:
Сумма цифр. Даны два числа А и В. Подсчитайте кол-во натуральных чисел на отрезке от А до В, сумма цифр которых четна. Программа получаетна вход два натуральных числа А и В, не превосходящих 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.
Знаете другой ответ?