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