Меню сайта

Задача №11

Дана символьная строка. Подсчитать в ней количество букв r,k,t.


program string_11-

var s:string-

a,b,c,i:integer-

begin write(‘введите строку’)-

readln(s)-

a:=0-b:=0-c:=0-

for i:=1 to length(s) do

begin if s[i]=’r’ then a:=a+1-

if s[i]=’k’ then b:=b+1-

if s[i]=’t’ then c:=c+1

end-

writeln(‘количество букв r=’,a)-

writeln(‘количество букв k=’,b)-

writeln(‘количество букв t=’,c)-

readln-

end.

Категория: Строки | Дата: 19.01.13

Меню раздела
Блок