Var a,b:set of integer; i,n: integer; begin write('кол-во элементов множества: '); readln(n); randomize; for i:=1 to n do a:=a+[random(250)]; write('элементы множества: '); foreach i in a do begin write(i,' '); if i mod 2 = 0 then b:=b+[i]; end; writeln; write('подмножество четных элементов: '); foreach i in b do write(i,' '); end.
Постфиксную запись удобно воспринимать как манипуляции со стеком — аналогом длинной трубки с отверстием внизу. в которую можно класть шары, при этом каждый следующий шар проталкивает дальше предыдущие.
Идём по записи 1) 5 — кладём в стек 5 2) 13 — кладём в стек 13 3) 7 — кладём в стек 7 4) - — вытаскиваем из стека два последних шара (13 и 7) и кладём обратно их разность 13 - 7 = 6 5) * — вытаскиваем из стека два последних шара (5 и 6) и кладём обратно их произведение (5 * 6 = 30). 30 и будет ответом.
Постфиксную запись удобно воспринимать как манипуляции со стеком — аналогом длинной трубки с отверстием внизу. в которую можно класть шары, при этом каждый следующий шар проталкивает дальше предыдущие.
Идём по записи 1) 5 — кладём в стек 5 2) 13 — кладём в стек 13 3) 7 — кладём в стек 7 4) - — вытаскиваем из стека два последних шара (13 и 7) и кладём обратно их разность 13 - 7 = 6 5) * — вытаскиваем из стека два последних шара (5 и 6) и кладём обратно их произведение (5 * 6 = 30). 30 и будет ответом.
i,n: integer;
begin
write('кол-во элементов множества: ');
readln(n);
randomize;
for i:=1 to n do
a:=a+[random(250)];
write('элементы множества: ');
foreach i in a do
begin
write(i,' ');
if i mod 2 = 0 then b:=b+[i];
end;
writeln;
write('подмножество четных элементов: ');
foreach i in b do write(i,' ');
end.