давно
Старший Модератор
31795
6196
03.12.2015, 23:53
общий
это ответ
Здравствуйте, Посетитель - 399097!
Смотрите код:
[code lang=pascal h=200]var
a:string;
b:set of char;
c:integer;
begin
write('Enter string:');
readln(a);
for c:=1 to length(a) do{заполняем множество}
b:=b+[a[c]];
writeln('Result:');
for c:=0 to 255 do{выводим множество}
if chr(c)in b then write(chr(c));
end.[/code]
Удачи!
Об авторе:
Мне безразлично, что Вы думаете о обо мне, но я рад за Вас - Вы начали думать.