Дана строка. словом текста считается любая последовательность букв алфавита; между соседними словами - не менее одного пробела, за последним словом – точка. найти и сохранить в строке те слова текста, количество гласных букв в которых превышает количество согласных. все остальные слова удалить. что не так с программой? : var m1, m2: set of char; s1, s2, s3: string; gl, i, m, sogl: integer; begin m2: =['a', 'e', 'i', 'o', 'u', 'y', 'a', 'e', 'i', 'o', 'u', 'y']; m1: =['b', 'c', 'd', 'f', 'g', 'h', 'j', 'k', 'l', 'm', 'n', 'p', 'q', 'r', 's', 't', 'v', 'w', 'x', 'z', 'b', 'c', 'd', 'f', 'g', 'h', 'j', 'k', 'l', 'm', 'n', 'p', 'q', 'r', 's', 't', 'v', 'w', 'x', 'z']; read(s1); gl: =0; sogl: =0; m: =length(s1); while m< > 0 do begin s2: =copy(s1, 1, (pos(' ', s1)-1)); delete(s1, 1, pos(' ', s1)); for i: =1 to length(s2) do begin if s2[i] in m2 then gl: =gl+1 else if s2[i] in m1 then sogl: =sogl+1; end; if gl> sogl then s3: =s3+s2+' '; end; writeln(s3); end.

Write('введите строку'); read(s1); gl: =0; sogl: =0;   m: =length(s1); while m< > 0 dobegins2: =copy(s1,1,(pos(' ',s1)-1)); delete(s1,1,pos(' ',s1)); for i: =1 to length(s2) dobeginif s2[i] in m2 then gl: =gl+1; if s2[i] in m1 then sogl: =sogl+1; end; if gl> sogl then s3: =s3+s2+' '; gl: =0; sogl: =0; m: =length(s1); end; writeln(s3); end.после проверки слова перемен нужно обнулить для нового подсчетаопределение длины строки нужно поместить в цикл, это для отределения после уменьшения и выхода из цикла

В 1864 году российский предприниматель Николай Шустов запустил в производство свой коньяк. И раскручивал он его весьма необычным нанял несколько десятков студентов, которые ходили по кабакам Москвы и требовали шустовский коньяк. Если этого напитка в кабаке не было, студенты «свирепели» и зачинали драку. О драках судачила вся пресса, и хватило месяца, чтобы столица узнала о коньяке Шустова. Это один из старейших примеров социального продвижения

Социальная сеть – это онлайн-сервис, сайт или платформа, предназначенные для организации социальных взаимоотношений. На таком ресурсе у каждого человека есть возможность разместить о себе какую-либо информацию (дата рождения, место обучения и работы, хобби и пр.), по которой данную учетную запись смогут отыскать другие участники. Социальные сети могут быть открыты для доступа любому интернет-пользователю, а могут представлять собой закрытую структуру, предоставляя доступ определенному кругу лиц. Несмотря на это различие, общей чертой для всех социальных сетей является наличие систем «групп» и «друзей». По данным разных аналитических сайтов, в тех или иных социальных сетях состоит каждый второй пользователь Интернета (52% из 57,8 млн. всех пользователей Рунета). Можно даже нарисовать типичный (среднестатистический) «портрет» участника таких ресурсов – это житель Северо-Западного федерального округа, примерно 18-25 лет, с высшим или неоконченным высшим образованием, имеющий достаточно прочное материальное положение. Конечно, в социальных сетях можно встретить и более взрослых, и более молодых людей, с разным уровнем достатка и различными потребностями. Неудивительно, что многие современные компании выбирают в качестве инструмента Интернет-маркетинга продвижение в первую очередь в социальных сетях – в этом случае хорошо спланированная маркетинговая стратегия позволяет охватить большую целевую аудиторию и эффективно продвинуть бизнес.

----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------