Дано натуральное число. Определить: 1) Определить количество повторений заданной цифры в...

Question

Дано натуральное число. Определить: 1) Определить количество повторений заданной цифры в нем 2) Сколько раз в нем встречается цифра, равная последней 3) Количество четных цифр в нем.

желательно в Basic. но можно и паскаль

Answer 1

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.