дано натуральное число н подсчитайте сколько раз в нем встречается цифра а

Question

Информатика

Юлиана

12 марта, 12:04

дано натуральное число н подсчитайте сколько раз в нем встречается цифра а

+3

Ответы (1)

Знаете ответ на вопрос?

Карина · Answer 1

var

n, a: string;

i, p: integer;

begin

p: = 0;

write ('n=') ; read (n) ;

write ('a=') ; read (a) ;

for i : = 1 to length (n) do

begin

if n[i] = a then p:=p+1;

end;

writeln ('В этом числе цифра ', a,' встречалась ', p,' раз.') ;

end.