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

в Pascal abc

Question

Информатика

Кирюха

17 января, 17:16

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

в Pascal abc

+2

Ответы (1)

Знаете ответ на вопрос?

Светланка · Answer 1

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

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

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

в Pascal abc