Var a,b,k,l,m,n:integer; begin readln(a); b:=a; n:=a mod 10; k:=a div 1000; l:=(a mod 1000) div 100; m:=(a mod 100) div 10; writeln(k+l,' ',k+m,' ',k+l,' ',l+m,' ',l+n,' ',m+n); 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 и будет ответом.
begin
readln(a);
b:=a;
n:=a mod 10;
k:=a div 1000;
l:=(a mod 1000) div 100;
m:=(a mod 100) div 10;
writeln(k+l,' ',k+m,' ',k+l,' ',l+m,' ',l+n,' ',m+n);
end.