Определить какое количество букв <Ы> (и строчных и заглавных) встречается во введенноц с...

Question

Определить какое количество букв <Ы> (и строчных и заглавных) встречается во введенноц с клавиатуры фразе. PascalABC

Answer 1

Program gt;
var a:string;
k,l,i,p:integer;
begin
readln(A);
l:=length(A);
k:=0;
for i:=1 to l do
begin
p:=ord(a[i]);
if(p>191)and(p<224)then a[i]:=chr(p+32);<br>if(a[i]='ы')then k:=k+1;
end;
writeln(k);
end.