Quote (fool)
1. Дано натуральное число:
• найти количество четных цифр числа;
var
a,s:integer;
begin
read(a);
while a div 10<>0 do begin
if a mod 10 mod 2=0 then s:=s+1;
a:=a div 10;
end;
writeln(s);
end.
Quote (fool)
• верно ли, что данная цифра А встречается в числе более двух раз (А вводить с клавиатуры).
var
c,a,s:integer;
begin
read©;
read(a);
while c div 10<>0 do begin
if c mod 10 = a then s:=s+1;
c:=c div 10;
end;
if s>=2 then writeln('yes') else writeln('no');
end.
