Найти и вывести все гласные буквы ( без повторений ), которые встретились в словах и количество слов. / паскаль авс

FruitAPps FruitAPps    1   08.06.2019 07:20    26

Ответы
lydmilagerasim lydmilagerasim  01.10.2020 22:06
Вот

uses
  System.Collections.Generic;

var
  s: string;
  l: List<char> := new List<char>();

begin
  readln(s);
  s := s.ToLower();
  foreach str: string in s.Split(' ') do
    foreach ch: char in str do
      if (ch in ['а', 'е', 'ё', 'и', 'о', 'у', 'э', 'ю', 'я']) and (l.IndexOf(ch) = -1) then
        l.Add(ch);
  foreach i: char in l do
    write(i, ' ');
end.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика