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

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

Question

Информатика

Перфилий

17 мая, 17:32

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

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

+3

Ответы (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.