Константин Симонов
Если родилась красивой,
Значит, будешь век счастливой.
Если будешь гордой мужем —
Скажут: потому что нужен.
Как других, с ним разлучит могила —
Всем простят, тебя возьмут в немилость.
Позабудешь — скажут: не любила,
Не забудешь — скажут: притворилась.
Владаимр Высоцкий
Если друг оказался вдруг
И не друг, и не враг, а - так,
Если сразу не разберешь,
Плох он или хорош,-
Парня в горы тяни - рискни!
Не бросай одного его,
Пусть он в связке в одной с тобой -
Там поймешь, кто такой.
Если парень в горах - не ах,
Если сразу раскис и - вниз,
Шаг ступил на ледник и - сник,
Оступился - и в крик,-
Значит, рядом с тобой - чужой,
Ты его не брани - гони:
Вверх таких не берут, и тут
Про таких не поют.
Если ж он не скулил, не ныл,
Пусть он хмур был и зол, но - шел,
А когда ты упал со скал,
Он стонал, но - держал,
Если шел за тобой, как в бой,
На вершине стоял хмельной,-
Значит, как на себя самого,
Положись на него.
Насколько я понял, множество - это просто все эти числа, только без повторений.
Заведем массив boolen, где будем отмечать, есть ли данное число во множестве.
var
a : array [1..15, 1..15] of integer;
b : array [1..30] of boolean;
i, j, n, m : integer;
begin
read (n, m);
for i := 1 to 30 do b[i] := false; //Зануление начальных значений
for i := 1 to n do
for j := 1 to m do
a[i, j] := i +j; //Заполнение массива
for i := 1 to n do
for j := 1 to m do
b[a[i, j]] := true; //Формирование множества
for i := 1 to n do
begin
for j := 1 to m do
write (a[i, j], ' ');
writeln;
end;
for i := 2 to 30 do
if b[i] then write (i, ' ');
end.
если в лоб(то есть если все перевести в 2 не считая точек ) то можно записать так 10100.1000.11111010101