множества
Добавлено: 05 дек 2013, 22:41
Исправьте ошибки в программе
условие: есть последовательность символов. Нужно построить и напечатать множество в состав которого входят элементы последовательности - знаки операций отношений.
условие: есть последовательность символов. Нужно построить и напечатать множество в состав которого входят элементы последовательности - знаки операций отношений.
Код: Выделить всё
uses crt;
var
s:string;
n,k,i:integer;
c:set of '<'..'>';
begin
writeln('vv text');
readln (s);
n:=length(s);
c:=[];
for i:=1 to n do
if s[i] in ['<'..'>']then
c:=c+s[i];
writeln(c);
readln;
end.