Определить количество нечётных цифр произвольного целого отрицательного числа - Pascal ABC
Формулировка задачи:
Определить количество нечётных цифр произвольного целого
отрицательного числа.
Решение задачи: «Определить количество нечётных цифр произвольного целого отрицательного числа»
textual
Листинг программы
var a,b:integer; begin write('Enter N:'); readln(a); b:=0; while a<>0 do begin b:=b+abs((a mod 10)mod 2); a:=a div 10; writeln(a); end; writeln('result:=',b); end.