Задачи на множества

[Foky]

Сообщение от puporev

Вариант Plague нормально работает, только как туда множества засунуть, ведь тема на множества. Кстати, чтобы в врианте Plague сделать нормальный вsвод нужно слегка переделать конец и вывод будет порциями с задержкой.

    if t=1 then break;   
end;   
             if t=1 then write(n,' '); 
             if n mod 1000=0 then readln  
end;   
end.

Общими усилиями решили мне задачу Спасибо всем решавшим)
ps добавлю в программу строку с сет оф, которая нигде не используется и будет задача на множества))препод всё равно тугой, ровным счетом как и я...

[Carbon]

Сообщение от Foky

Да и ктому же программа выдала ошибку о переполнении, короче паскаль подвис у меня).

Я же сказал изменить integer на longint, если не в Делфи или Фри Паскале.

[pil69]

В множестве допускается не более 255 элементов. Может условие задачи некорректно сформулировано?

[QWR]

Помогите с задачкой по теме множества!
Дано N елементов прономерированые М1, М2 ... Мn. Можно ли с них скласть сумму S и как именно?