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

Question

Информатика

Натоха

23 октября, 18:24

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

+3

Ответы (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.