Найдите количество чётных цифр заданного числа
по программе pascal.
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.
Оцени ответ
Подпишись на наш канал в телеграм. Там мы даём ещё больше полезной информации для школьников!
