Построить и вывести множества, элементами которых являются встречающиеся в последовательности буквы от А до F - Pascal ABC
Формулировка задачи:
Дана непустая последовательность символов. Построить и вывести множества, элементами которых являются встречающиеся в последовательности буквы от А до F.
Решение задачи: «Построить и вывести множества, элементами которых являются встречающиеся в последовательности буквы от А до F»
textual
Листинг программы
var s:string;
m:set of char;
i:byte;
c:char;
begin
writeln('Введите последовательность символов');
readln(s);
m:=[];
for i:=1 to length(s) do
if s[i] in ['A'..'F'] then m:=m+[s[i]];
if m=[] then write('букв A..F в последовательности нет')
else
begin
writeln('Множество');
for c:='A' to 'F' do
if c in m then write(c,' ');
end;
end.
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д