tutotveti.ru
Предметы
Биология
Українська мова
Музыка
Французский язык
Физика
МХК
Обществознание
Психология
ОБЖ
Право
Беларуская мова
Литература
Химия
Українська література
Экономика
Немецкий язык
География
Информатика
Қазақ тiлi
Геометрия
Английский язык
Русский язык
Окружающий мир
Алгебра
История
Другие предметы
Видео-ответы
ПОИСК
Войти
Регистрация
Информатика
Найти и вывести все гласные
Найти и вывести все гласные буквы ( без повторений ), которые встретились в словах и количество слов. / паскаль авс
FruitAPps
1 08.06.2019 07:20
26
Ответы
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.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика
kariiinka
19.04.2021 10:39
Тест по (половина 1, 2 половина тоже есть)...
Mmamagadzhieva
29.03.2022 19:23
1. За якою схемою «приймають рішення» комп ютери? а) істинно/хибно; б) ймовірно/неймовірно; в) комп ютери не приймають рішень, оскільки їхні дії запрограмовані. 2....
mur181
29.03.2022 20:05
2. Составьте программу для определения, является ли х решением неравенства с модулем: x=int(input( Введите число: )) if (3*x-9 12): print(x является решением неравенства)...
21ololoha
29.03.2022 21:03
ЗАДАЧА С++ Визначити кількість цифр у даній послідовності....
MAXXB
29.03.2022 23:52
Почему калькулятор запрашивает геолокацию?...
C137
30.03.2022 00:57
Дано рівносторонній трикутник зі стороною a і коло радіусом r. Розробіть алгоритм і програму визначення: чи можна у трикутник вписати це коло. значення сторони трикутника...
gfyfhh
30.03.2022 02:01
1)Рассматривается множество целых чисел, принадлежащих числовому отрезку [3394; 8599], которые удовлетворяют следующим условиям: − остаток от деления на 3 равен 1;−...
DenisYTYT
30.03.2022 03:00
Знайти добуток додатних чисел, перше з яких дорівнює 20, кожне наступне на 5 менше від попереднього. B scratch...
esenjel
30.03.2022 05:23
Что означает эта программа? s=int(input()) k=int(input()) if s//2==k: print ( ДА ) else: print( НЕТ )...
Erkina000
30.03.2022 06:02
До іть відповісти на питання!!...
Популярные вопросы
У человека смуглая кожа доминирует над светлой. Найди вероятность...
1
Составьте уравнение реакций нейтрализации, в которых получаются...
1
Сравните два текста (сплошной и несплошной). Какая информация объединяет...
2
Ніна Бічуя – письменниця, перекладач, журналіст,член . Народилася...
2
Скільки разів виконається цикл якщо початкове значення X=7?While...
1
We won eleven of or chiss matchets but have lost the which was...
2
Точка O — центр окружности, на которой лежат точки A, B и C. Известно,...
2
Почему на каждой планете жил всего 1 человек? Маленький принц...
1
Какие элементы являются неотъемлемой частью любого алгоритмического...
3
Сделайте как можно скорее ...
2
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.