Составить программку нахождения количества букв "а" в тексте ( на языке

Составить программку нахождения количества букв "а" в тексте ( на языке Паскаль )

Задать свой вопрос
Никита Брюлев
Щас будет
2 ответа
Изготовлено 

(20 знаков тоже здесь)
Var
s:string;
i, m:integer;
begin
readln(s);
m:=0;
for i:=1 to length(s) do
if(s[i]='a') then m:=m+1;
writeln(m);
end.
, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт