Задан текст (20 слов). Преобразовать его так, чтобы слова располагались по возрастанию количества входящих в них гласных. Вот, что то пытался делать, но зашел в тупик... Заранее спасибо.
Program Lab_7; const g: set of char=['ё','у','е','ы','а','о','э','я','и' ,'ю', 'Ё','У','Е','Ы','А','О','Э','Я','И' ,'Ю', 'e','y','u','i','o','a', 'E','Y','U','I','O','A']; var s,sl: string; i,j,k: byte; begin write('s='); readln(s); s:=s+','; sl:=''; for i:=1 to length(s) do if (s[i]<>',') and (s[i]<>' ') then sl:=sl+s[i] else if length(sl)>0 then begin k:=0; for j:=1 to length(sl) do if sl[j] in g then inc(k);
Ловишь первый пробел в строке -> всё что до этого пробела - это первое слово, смотришь сколько в нём гласных букв, и так продолжаешь пока есть слова в строке, пробегаешься столько раз пока не будет выстроена иерархия от слова в котором больше всего гласных букв до самого малого количества ( их можешь забивать в массив или куда тебе удобнее) и дальше выводишь инфу) Нужна помощь? Сюда: vkontakte.ru/berestovskiy
