Var s,w:string; i,j,n,p,k,gmax:integer; fBreak:boolean; { флажок для прерывания циклов } begin Writeln('Введите текст, разделяя слова пробелами'); Readln(s); s:=LowerCase(s); n:=Length(s); p:=1; fBreak:=False; gmax:=0; while (not Fbreak) do { перебор всех символов в строке } begin {ищем первый непробельный символ - начало слова } fBreak:=False; while ((p<=n) and (not fBreak)) do if (p=n) or (s[p]<>' ') then fBreak:=True else Inc(p); { ищем первый пробельный символ - конец слова } if p<n then begin i:=p; Inc(p); fBreak:=False; while (p<=n) and (not fBreak) do begin if (p=n) or (s[p]=' ') then fBreak:=True else Inc(p) end; { теперь слово находится между позициями i и p } k:=0; for j:=i to p do if s[j] in ['а','е','ё','и','о','у','ы','э','ю','я'] then Inc(k); if gmax<k then begin gmax:=k; w:=Copy(s,i,p-i) end; i:=p; p:=p+1 end else p:=p+1; fBreak:=(p>n) end; if gmax>0 then Writeln('В слове "',w,'" максимум гласных, равный ',gmax) else Writeln('Во введенной строке гласных букв не найдено') end.
Тестовое решение: Введите текст, разделяя слова пробелами В слове ДЛИННОШЕЕЕ три буквы е подряд! В слове "длинношеее" максимум гласных, равный 5
45. ОЗУ, Кэш, рпп
46. Ширина ячейки не вмещает в себя результат
47. Да
48. Драйвер - программа для подключения какого-либо устройства к ОС и работы с ней
49. При абсолютной ссылке добавляют знак $, который позволяет при копировании не изменять строку/столбец
50. Монитор, принтер, колонки, проектор
51. Всплывает меню задач которые можно выполнить над данным файлом/папкой
52. ОС - комплекс программ, предназначенных для управления ресурсами компьютера
53. Все файлы и текст
54-64. устала я)
65. CD-RW
66. Программа — последовательность инструкций, предназначенная для исполнения устройством УВМ.
67. С равно (=)
68. DOCX, DOCM, DOTX, DOTM
69. К прикладному программному обеспечению
70. Программа предназначенная для просмотра web страниц, поиска информации и т.д.
71. Notepad, TextPad
, MS Word, WordPad, Excel
72.RAW, JPEG, GIF, PNG, TIFF, PSD
73. Форма в Access — это объект базы данных, который можно использовать для создания пользовательского интерфейса для приложения базы данных
74. Normal.dot
75. БД - множество данных организованных для быстрого и удобного поиска информации
76. Растровые форматы TIFF, JPEG
Векторные форматы DWG, DXF