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

Question

Информатика

Емеля

19 мая, 17:12

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

+1

Ответы (1)

Знаете ответ на вопрос?

Степаня · 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.