паскаль множество

Ответ от Gennady[гуру]
А с чего ей считать, если множества не введены?
write('введите элементы множества х1:'); {ну вывел подсказку}
readln(b); {прочтиал байт}
x1:=x1+[b]; {добавил его к множеству и на этом все закончилось}
Надо так
write('введите элементы множества х1:');
while not EOLN do begin
Read(b); {Read, а не ReadLn! и вводить элементы разделенные пробелами}
x1 := x1 + [b];
end;ReadLn; {а вот здесь ReadLn, чтобы очистить строку ввода от CRLF}
Аналогично вводится и второе множество.
И еще. Если в задании нужно выделить множество, кратное трем, то с какого перепуга вы требуете, чтобы элемент был кратен и пяти?

Ответ от 3 ответа[гуру]

Ответ от 3 ответа[гуру]