Дано целое число a. определить количество нечётных цифр в числе в pascal abc

252

416

Посмотреть ответы 2

Ответы на вопрос:

vikyyyyysya142

Информатика

4,6(42 оценок)

Program qwe; var a: longint; s: byte; begin write('введите число: '); readln(a); s : = 0; a : = abs(a); while a > 0 do begin if not odd(a) then inc(s, a mod 10); a : = a div 10 end; writeln('сумма чётных цифр = ', s); readln end