Определить количество нечётных цифр произвольного целого отрицательного числа - 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.

Оцени полезность:

9   голосов , оценка 3.889 из 5
Похожие ответы