Согласные буквы

@sanek_next · Регистрация: 14.05.2010

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

Составте программу нахождения согласной, чаще всего встречающейся в слове.

@Zverit · 08.04.2011, 19:09

Pascal

const
 sgl = ['q','w','r','t','y','p','s','d','f','g','h','k','l','z','x','c','v','b','n','m'];
var
 s:string;
 i,j,max,max2,count: integer;
begin
 readln(s);
 for i:= 1 to length(s) do begin
   if count > max then begin
     max:= count;
     max2:= i-1;
   end;
   count:= 0;
   for j:= i+1 to length(s) do begin
     if (s[i] = s[j]) and (s[i] in sgl) then
     inc(count);
   end;
 end;
 if (max2 >= 1) and (max2 <= length(s)) then
 writeln(s[max2]);
end.

@sanek_next · 08.04.2011, 19:13 **[ТС]**

Спасибо...

@sanek_next Мимолетом здесь... 51 / 51 / 0 Регистрация: 14.05.2010 Сообщений: 209
		1
	Согласные буквы 08.04.2011, 18:53. Показов 1024. Ответов 2 Метки нет (Все метки) Составте программу нахождения согласной, чаще всего встречающейся в слове. 0

@sanek_next Мимолетом здесь... 51 / 51 / 0 Регистрация: 14.05.2010 Сообщений: 209
	08.04.2011, 19:13 [ТС]	3
	Спасибо... 0

Согласные буквы

Решение