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

@Iluxa15V · Регистрация: 13.08.2012

Author24 — интернет-сервис помощи студентам

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

@CodeR · 14.08.2012, 08:49

Pascal

Var s:string;
    i,k1,k2,k3:byte;
Begin
    write('Введите строку: ');readln(s);
    For i:=1 to Length(s) do
     if s[i]='r' then inc(k1)
      else if s[i]='k' then inc(k2)
       else if s[i]='t' then inc(k3);
    writeln('Кол-во букв "r": ',k1);
    writeln('Кол-во букв "k": ',k2);
    writeln('Кол-во букв "t": ',k3);
End.

@welcome-friend · 14.08.2012, 10:13

А еще лучше заменить оператор if на оператор case

@Iluxa15V 0 / 0 / 0 Регистрация: 13.08.2012 Сообщений: 56
		1
	Дана символьная строка. Подсчитать в ней количество букв r,k,t 14.08.2012, 07:51. Показов 10053. Ответов 2 Метки нет (Все метки) Дана символьная строка. Подсчитать в ней количество букв r,k,t. 0

@welcome-friend 0 / 0 / 1 Регистрация: 11.08.2012 Сообщений: 10
	14.08.2012, 10:13	3
	А еще лучше заменить оператор if на оператор case 0

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

Решение