Вычислите min{min(|X ∪ Y|, |Y ∩ Z|) + max (|X ∪ Z|, |Y ∩ X|)} на множестве всех таких множеств, что мощность множества Х равна 8, мощность множества Y равна 7, а мощность множества Z равна 5.

Нажмите на рекламу ниже и сразу увидите ответ
Популярные вопросы:
Ответ:
снегурочка01
16.02.2020 00:57

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

0,0(0 оценок)
Ответ:
iraromanova2002
21.04.2021 10:41
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
0,0(0 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота