Вопрос по информатике:
Найти и вывести все гласные буквы ( без повторений ), которые встретились в словах и количество слов. / Паскаль АВС
- 24.02.2016 14:51
- Информатика
- remove_red_eye 14131
- thumb_up 30
Ответы и объяснения 1
Вот, прошу:)
uses
System.Collections.Generic;
var
s: string;
l: List := new List();
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.
- 25.02.2016 15:19
- thumb_up 30
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.