ЕЛ
Елена Лобина
Составить программу подсчета количества букв А в любом словеее
Паскаль
Паскаль
var s:string; n:integer;
begin readln(s); n:=0; for k:=1 to length(s) do n:=n+ord(s[k]='A'); writeln(n); readln end.
var s:string; n,k:integer;
begin readln(s); n:=0;
for k:=1 to length(s) do
if s[k]='A' then inc(n);
writeln(n);
readln
end.