var w1, w2: string; m: set of char; c: char; i: integer;
begin Writeln('Введите первое "слово"'); Readln(w1); Writeln('Введите второе "слово"'); Readln(w2); m := []; w1 := LowerCase(w1);w2 := LowerCase(w2); for i := 1 to length(w1) do if w1[i] in gl then Include(m, w1[i]); for i := 1 to length(w2) do if w2[i] in m then Exclude(m, w2[i]); Writeln('Гласные, присутствующие в первом слове и отсутствующие во втором:'); foreach c in m do Write(c, ' '); Writeln end.
Тестовое решение: Введите первое "слово" Дай, Джим, на счастье лапу мне! Введите второе "слово" Сергей Есенин Гласные, присутствующие в первом слове и отсутствующие во втором: а у
1.Программа к саморазмножению (Вирус) 2.Световая метка на экране, обозначающая место активного воздействия (Курсор) 3. Процесс сжатия информации с целью уменьшения её объёма (Архивация) 4. Устройство вывода звуковой информации (Колонки) 5. Специализированный сетевой компьютер пересылающий пакеты данных между различными сегментами сети (Роутер) 6. Устройство ввода (Клавиатура) 7. Устройство для чтения и записи дисков (Дисковод) 8. Описание операции (Команда) 9. Знак, вместе с его смыслом (Символ) 10. Определнное количество информации, хранящаяся во внешней памяти и имеющее имя (Файл) 11. Микросхема, которая обрабатывает информацию и управляет всеми устройствами ПК (Процессор) 12. Гибкий магнитный диск (Дискета) 13. Сверхоперативная память (Кэш) 14. Устройство вывода информации (Монитор) 15. Группа файлов и папок, объединенных по какому-либо принципу (Каталог)
0,0(0 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку