Задание:
Выполнить на компьютере программу которая предлагае ввести строку s и находит количество букв а в строке
Решение:
Uses crt; var s: string; k,i: integer; beginreadln (s); for i: =1 to length (s) doif s[i]='a' then inc (k); writeln (k); end.
Знаете другой ответ?