Дана строка. нужно сосчитать сколько в ней букв "а".в pascal* )
Лейла0044
3
14.11.2019 21:55
2
Другие вопросы по теме Информатика
4ex9s
18.01.2021 19:43
Нурай231
18.01.2021 19:41
dedovu6
05.05.2020 21:00
botpolikop20181
05.05.2020 20:59
Учебник2017
05.05.2020 20:59
vramazanova4
05.05.2020 20:59
talibansky
05.05.2020 20:45
Vladijad
05.05.2020 20:42
Популярные вопросы
- На 5 днів трьом зебрам дають 30 кг сіна. Скількі кілограмів сіна...
1 - You ve got quite a few pictures, haven t you? B: Yes, we took...
1 - Решите пропорцию :15-3х=2х-7 4 6...
3 - 4. Укажите окончание прилагательного. * 1)-е 2) -ешь 3)-ит 4)...
2 - Оплодотворённая яйцеклетка попадает в матку из а) шейка матки...
1 - Определи минимальную силу, которую необходимо приложить к рукоятке...
2 - Юісектриса прямого кута прямокутного трикутника ділить гіпотенузц...
1 - ВАЖНЫЙ ВОПРОС ЧТО ВЫ ДУМАЕТЕ О ЗАПОВЕДНИКАХ, НАЦИОНАЛЬНЫХ ПАРКАХ...
1 - Майбутнє людства у творі Айзек Азімов Фах , написати 10 речень...
3 - Боковая сторона равнобедренного треугольника равна 85,а его высота...
1
var s:String;
i,k:Integer;
begin
Write('Введите строку ');
Readln(s);
for i:=1 to Length(s) do
if s[i]='а' then k:=k+1;
Write('В строке ', k,' букв а')
end.
begin
ReadlnString.Count(c -> c = 'а').Println
end.
Пример приведен на скрине.