Ответы на вопрос:
объяснение:
все элементарно.
имя и фамилия кодируются точно так же, как и обычный текст.
просто кодируйте текстовую строку
Var a: string; sum,i: integer; begin sum: =0; writeln('введите текст'); readln(a); for i: =1 to length(a) do begin if a[i]='а' then sum: =sum+1; end; writeln('буква а встречается: ',sum,' раз(а)'); end.
Популярно: Информатика
-
andrejisaev20Andrey22.06.2021 16:08
-
ledigalina197413.02.2022 06:57
-
viktorvr7421.03.2022 13:25
-
ледяннойкристалл24.10.2022 18:38
-
чебурек228330.09.2022 04:06
-
аян4509.06.2020 20:50
-
Lizaliya29.09.2022 12:15
-
lycena17.11.2022 18:27
-
Anastasiagoodnastia04.06.2021 19:09
-
Vftfg16.02.2021 09:31