Question

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

Answer 1

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.

Answer 2

Сделано 

(20 символов тоже тут)

440fbbdea8b2c4d031cfcfd791526d60.pas