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);
if(a[i]='ы')then k:=k+1;
end;
writeln(k);
end.