Постфиксную запись удобно воспринимать как манипуляции со стеком — аналогом длинной трубки с отверстием внизу. в которую можно класть шары, при этом каждый следующий шар проталкивает дальше предыдущие.
Идём по записи 1) 5 — кладём в стек 5 2) 13 — кладём в стек 13 3) 7 — кладём в стек 7 4) - — вытаскиваем из стека два последних шара (13 и 7) и кладём обратно их разность 13 - 7 = 6 5) * — вытаскиваем из стека два последних шара (5 и 6) и кладём обратно их произведение (5 * 6 = 30). 30 и будет ответом.
Var a:array [1..7] of real; i:integer; begin write ('Массив: '); for i:=1 to 7 do begin a[i]:=random(201)-100; write (a[i],' '); end; writeln; write ('Массив * 2: '); for i:=1 to 7 do begin a[i]:=a[i]*2; write (a[i],' '); end; end.
это возможно что выше а ниже значение 50 на 1 измени и все uses crt;var mas:array[1..20] of integer;i,b:integer;beginclrscr;randomize;for i:=1 to 20 do beginmas[i]:=random(51)+50;write(mas[i]:4);end;write('B=');readln(b);for i:=1 to 20 do beginmas[i]:=mas[i]+b;write(mas[i]:4);end;readkey;end.
3*2^21Мб в Гбит = 49152 Гбит