Найдите количество чётных цифр заданного числа

по программе pascal.

Question

Информатика

Арина

24 февраля, 16:49

Найдите количество чётных цифр заданного числа

по программе pascal.

+4

Ответы (1)

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

Борисыч · Answer 1

var

k:integer;

a, n:longint;

begin

write ('A = ') ; readln (a) ;

n:=a;

while n div 10 0 do begin

n:=a;

if odd (n mod 10) = false then k:=k+1;

a:=a div 10;

end;

writeln (k) ;

readln;

end.

Найдите количество чётных цифр заданного числапо программе pascal.

Найдите количество чётных цифр заданного числа

по программе pascal.