Вопрос от посетителя
Дано натуральное число. Определить: 1) Определить количество повторений заданной цифры в нем 2) Сколько раз в нем встречается цифра, равная последней 3) Количество четных цифр в нем.
желательно в Basic. но можно и паскаль
Отвечает Илюха:
var a,c,l,w1,w2,w3 : longint;
begin
readln(a,c);
w1:=0;
w2:=0;
w3:=0;
l:=a mod 10;
while a>0 do
begin
if a mod 10=c then w1:=w1+1;
if a mod 10=l then w2:=w2+1;
if a mod 2=0 then w3:=w3+1;
a:=a div 10;
end;
writeln(w1,’ ‘,w2,’ ‘,w3);
end.