Составте программу на языке программирования паскаль: подсчитать количество букв ''а'' в заданном тексте
kostya196
3
09.03.2019 06:00
2
Другие вопросы по теме Информатика
irashnytko
08.08.2019 00:10
davleeva
08.08.2019 00:10
nikzyk
29.03.2019 14:18
Иринка853653
29.03.2019 16:00
rege12345
08.09.2019 14:10
liliasirbu
08.09.2019 14:10
olgavasileva67
06.09.2019 06:00
25690гений
09.04.2020 15:30
VikaGrin1
09.04.2020 15:30
Популярные вопросы
- Співвіднесіть ім я діяча культура і галузь до якої вони відносяться :Аристофан...
2 - Добоможіть Історіяя створення митькозавр з юрівки...
3 - Поширене і не поширене речення А. Тетянко, не заважай Б. Мабудь піде сніг...
2 - (номер 8) сделаю как лучший ответ и...
2 - Решите треугольник; АВ=4, ВС=5, LВ=60°. Найти АС....
3 - Письменности музыки усуней...
1 - Сочинение рассуждение на тему как я воспринимаю судьбу Есенина и его поэзию...
1 - Особенности протекания реакции при нагревании с выделением воды у α-, β-...
3 - 2. У цеху виробили 1250 л олії. Після того, як частину олії розлили в п ятилітрові...
3 - Учебник 5 класс география о. а. климанова, в. в. климанов, э. в. Ким страница...
3
var n,i:integer;
Begin
read(n);
for i:= 2 to n-1 do
if n mod i = 0 then writeln('No');
End.
var n,i:integer;
s:string;
Begin
read(s);
for i:= 1 to length(s) do
if s[i]="a" then n:=n+1;
writeln(n);
End.
Скорее всего так