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

Составить программу нахождения количества букв "а" в тексте ( на языке Паскаль )
Гость
Ответ(ы) на вопрос:
Гость
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.
Не нашли ответ?
Ответить на вопрос
Похожие вопросы