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

ArinaKappa ArinaKappa    2   22.05.2019 06:10    2

Ответы
ogannisyan2006 ogannisyan2006  01.10.2020 06:14

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.

ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика