Ответы на вопрос:
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.
Популярно: Информатика
-
vkuke30.05.2021 03:57
-
TheCool11120.01.2020 10:54
-
kriss674521.07.2022 11:49
-
derevnina45003.03.2021 19:41
-
Kateriна04.06.2021 01:33
-
Ватрушкасмаком24.09.2022 20:35
-
Arina898721.03.2020 20:57
-
dndwp0a74827.01.2020 06:55
-
алекс91505.08.2022 15:37
-
vylko777Leybe27.08.2022 19:23