Посчитать количество букв "А" в слове - Pascal ABC

Формулировка задачи:

Посчитать количество букв "А" в слове.

Код к задаче: «Посчитать количество букв "А" в слове - Pascal ABC»

textual
var
k, i: integer;
s: string;
begin
readln(s);
k:=0;
for i:=1 to length(s) do
if s[i] = 'A' then
inc(k);
writeln(k);
writeln
end.

15   голосов, оценка 3.800 из 5


СОХРАНИТЬ ССЫЛКУ