Есть ответ 👍

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

194
419
Посмотреть ответы 2

Ответы на вопрос:


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.

Возможно  в 2

Популярно: Информатика