Question

Дан текст, содержащий не более 10 слов, из строчных русских букв, между соседними словами – запятая, за последним словом - точка. Составить программы, в которых напечатать в алфавитном порядке: все гласные буквы, которые входят хотя бы в одно слово более двух раз. Гласные буквы – а, е, и, о, у, ы, э, ю, я; Задача на множества помогите по паскалю функции не используйте. срочно нужно до завтра

Answer 1

// PascalABC.NET 3.2, сборка 1467 от 02.06.2017
// Внимание! Если программа не работает, обновите версию!

begin
  var sg:=['а','е','и','о','у','ы','э','ю','я'];
  var a:=ReadlnString('Вводите текст: ').ToWords(',','.');
  var r:set of char=[];
  for var i:=0 to a.Length-1 do begin
    var b:=a[i].Where(c->c in sg).GroupBy(t->t).Select(t->(t.Key,t.Count));
    foreach var t in b do
      if t[1]>2 then r+=[t[0]];
    end;
  var s:='';
  foreach var c in r do s+=c;
  s.OrderBy(t->t).Println(',')
end.

Пример
Вводите текст:  Дает,корова,молоко,а,жираф,это,длинношеее,животное.
е,о

Answer 2

Для решения данной задачи на Паскале можно использовать множества и функции. Вот пример программы, которая решает данную задачу:

program VowelsCount;

var
  text: string;
  vowels: set of char;
  vowelCount: array[char] of integer;
  ch: char;

begin
  // Ввод текста
  write('Введите текст: ');
  readln(text);

// Инициализация множества гласных букв
  vowels := ['а', 'е', 'и', 'о', 'у', 'ы', 'э', 'ю', 'я'];

// Инициализация счетчика гласных букв
  for ch in vowels do
    vowelCount[ch] := 0;

// Подсчет количества гласных букв
  for ch in text do
  begin
    if ch in vowels then
      vowelCount[ch] := vowelCount[ch] + 1;
  end;

// Вывод гласных букв, которые встречаются более двух раз
  writeln('Гласные буквы, которые встречаются более двух раз:');
  for ch in vowels do
  begin
    if vowelCount[ch] > 2 then
      write(ch, ' ');
  end;
  writeln;
end.

В этой программе мы сначала вводим текст с помощью `readln`. Затем мы инициализируем множество `vowels`, содержащее все гласные буквы. Далее мы создаем массив `vowelCount`, который будет содержать количество вхождений каждой гласной буквы в тексте.

Затем мы проходим по каждому символу в тексте и увеличиваем счетчик для соответствующей гласной буквы, если символ является гласной.

Наконец, мы выводим гласные буквы, которые встречаются более двух раз.

Примечание: В данном случае, так как текст не был предоставлен, я не могу предоставить конкретный результат выполнения программы. Однако, если вы введете текст, содержащий не более 10 слов, разделенных запятыми и заканчивающихся точкой, программа должна правильно подсчитать количество гласных букв и вывести те, которые встречаются более двух раз.

Надеюсь, это поможет вам решить задачу! Если у вас возникнут дополнительные вопросы, пожалуйста, дайте мне знать.