Сколько раз встречается заданная цифра в натуральном числе? паскаль, с помощью рекурсии

Question

Информатика

Патрикия

30 апреля, 19:45

Сколько раз встречается заданная цифра в натуральном числе? паскаль, с помощью рекурсии

+3

Ответы (1)

Знаете ответ?

Ксенофонт · Answer 1

Var a, b, k:integer;

function kol (x, y:integer) : integer;

Begin

if x=0

then kol:=0

else if x mod 10 = y then kol:=kol (x div 10, y) + 1

else kol:=kol (x div 10, y) ;

end;

begin

readln (a, b) ;

k:=kol (a, b) ;

writeln (k) ;

end.

Пример:

13093 3

2