Предмет: Информатика,
автор: КаринаМалинкина
дано натуральное число н подсчитайте сколько раз в нем встречается цифра а
Ответы
Автор ответа:
0
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.
Похожие вопросы
Предмет: Русский язык,
автор: Аноним
Предмет: Биология,
автор: kucerenko3107
Предмет: Геометрия,
автор: goncarvika30
Предмет: Математика,
автор: maks251077