Ответы на вопрос:
Var s: string; k,i: integer; begin write('введите слово: '); readln(s); k: =0; for i: =1 to length(s) do if s[i]='a' then k: =k+1; writeln('в слове ',s,' буква а встречается ',k,' раз'); end.
Популярно: Информатика
-
Как называется процесс получения информации из интернета...
Nikitosqwerty28.09.2021 08:39 -
Хто дивиться тік ток ? ( ів ЩАСЛИВЧИКУ)...
настя758912.08.2022 01:23 -
Какой комбинацией клавиш открывается ещё одно окно программы проводник...
pro100Abyroi07.06.2022 21:36 -
Представь двоичное число 10111111 в восьмеричной системе счисления....
RыBкA10928.04.2021 17:08 -
Конспект на тему системы объектов, пк как система, как мы познаем...
ba4Ka16.01.2020 23:36 -
20 ! проект- научное открытие о передачи информации в древности....
Your0ppa19.08.2022 22:48 -
Картинка созданная в палитре из 64 цветов содержит 128 точек по...
mamaamamma3310.09.2020 07:18 -
Синформатикой. загрузили, я не успею ее сделать просто , сделать...
Сириc01.04.2023 15:04 -
(pascalabc). программа вводит два числа, выводит сумму их модулей...
taliya1tolya21.03.2020 12:59 -
Какое слово зашифровано? нпеёмэ код к зашифровке - сдвиг на одну...
Fiascobratan22830.10.2022 11:31