выполнить на компьютере программу которая предлагае ввести строку s и находит количество букв а в строке

Question

Ларуся

3 октября, 15:48

+5

Ответы (1)

Знаете ответ на вопрос?

Аврелиан · Answer 1

Uses crt;

var s:string;

k, i:integer;

begin

readln (s) ;

for i:=1 to length (s) do

if s[i]='a' then inc (k) ;

writeln (k) ;

end.