Найти все слова, содержащие наибольшее количество гласных латинских букв

@Asya_inter · Регистрация: 14.11.2014

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

Можете помочь с задачей?? "Дан текст. Группы символов, разделенные пробелами (одним или несколькими) и не содержащие пробелов внутри себя, будем называть, словами.
б) Найти все слова, содержащие наибольшее количество гласных латинских букв (а, е, i, о, u)."

@Joy · 20.12.2014, 06:41

Pascal

var
  smax:array[0..127] of string;
  s,s1:string;
  i,j,max:integer;
begin
  for i:=0 to 127 do smax[i]:='';
  write('BbeguTe CTpoky:');readln(s);
  j:=0;max:=0;
  for i:=1 to length(s) do begin
  s1:=s1+s[i];
  if upcase(s[i]) in ['A','E','I','O','U'] then j:=j+1;
    if (s[i]=' ') or (i=length(s)) then begin
      if max<j then max:=j;
      smax[j]:=smax[j]+s1;
      j:=0;
      s1:='';
    end;
  end;
  if max=0 then writeln('HeT TaKux') else begin
  writeln('Makc=',max);  writeln(smax[max]);end;
end.

@Asya_inter 7 / 7 / 0 Регистрация: 14.11.2014 Сообщений: 166
		1
	Найти все слова, содержащие наибольшее количество гласных латинских букв 19.12.2014, 21:40. Показов 1768. Ответов 1 Метки нет (Все метки) Можете помочь с задачей?? "Дан текст. Группы символов, разделенные пробелами (одним или несколькими) и не содержащие пробелов внутри себя, будем называть, словами. б) Найти все слова, содержащие наибольшее количество гласных латинских букв (а, е, i, о, u)." 0

	20.12.2014, 06:41

Найти все слова, содержащие наибольшее количество гласных латинских букв

Решение