Применение множеств. Составить программу, используя множественный тип. Дан текст, состоящий из букв русского и латинского алфавитов и зна
Применение множеств. Составить программу, используя множественный тип. Дан текст, состоящий из букв русского и латинского алфавитов и знаков препинания. По одному разу в алфавитном порядке вывести все прописные латинские гласные буквы, встречающиеся в этом тексте..
Program PascalGuru;
var s:string; liter:string; i,j:integer;
begin write('Vvedite stroku: '); readln(s); {считываем строку}
for i:=1 to length(liter) do {прохождение по множ-ву гласных} for j:=1 to length(s) do {прохождение по введенной строке} if liter[i]=s[j] then begin writeln(liter[i]); break; end; {вывод результатов}