Опубликовано 09.06.2017 по предмету Информатика от Гость >> <<

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

Ответ оставил Гость

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.