Дано натуральное число н подсчитайте сколько раз в нем встречается цифра а
Дано натуральное число н подсчитайте сколько раз в нем встречается цифра а
Гость
Ответ(ы) на вопрос:
Гость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.
Не нашли ответ?
Похожие вопросы