Дана строка состоящая из русских слов набранных заглавными буквами и разделенных...

Question

Дана строка состоящая из русских слов набранных заглавными буквами и разделенных пробелами найти количество слов которые содержат ровно 3 буквы "А"

Answer 1

DВот решение данной задачи на языке Pascal:
var
s:string;
k,n,i:longint;
begin
 read(s);
 k:=0;
 n:=0;
 for i:=1 to length(s) do
  begin
   if ord(s[i])=65 then k:=k+1;
   if ord(s[i])=32  then
    begin 
    if k=3 then n:=n+1;
    k:=0;
    end;
   end;
writeln(n);
end. 

Comments

а можете пример привести для результата

---

я вот написал слово "лабораторная работа" а он говорит что ответ:0

---

Ой. Прошу прощения. Нужно заменить строчку if ord(s[i])=65 на if ord(s[i])=128