program ideone;
const MAX_S = 100; // definiuje rozmiar stosu
var
S : array[0..MAX_S-1] of double; // stos
p : integer; // wskačnik stosu
e : string; // element wyra_enia ONP
v1,v2 : double; // argumenty operacji
c : word; //plik:text; // pozycja b_ŕdu przy konwersji
begin
//assign(plik,'dzialanie.txt');
//reset(plik);
//readln(plik,e);
p := 0; // inicjujemy stos;
repeat // w pŕtli przetwarzamy wyra_enie ONP
//readln(plik,e); // odczytujemy element wyra_enia ONP
readln(e);
if e = '=' then break;
val(e,v1,c); // dokonujemy konwersji
if c = 0 then
begin // liczba
S[p] := v1; // umieszczamy j_ na stosie
inc(p); // zwiŕkszamy wskačnik stosu
end
else
begin // operator
v1 := S[p-2]; // pobieramy ze stosu dwa argumenty
v2 := S[p-1];
case e[1] of // wykonujemy operacje wg operatora
'+' : v1 := v1 + v2;
'-' : v1 := v1 - v2;
'*' : v1 := v1 * v2;
'/' : v1 := v1 / v2;
end;
S[p-2] := v1; // wynik umieszczamy na stosie
dec(p); // ze stosu zniknŕ_a jedna liczba
end;
until false;
writeln(S[p-1]:0:6); // wypisujemy wynik ze szczytu stosu
readln;
//close(plik);
end.
cHJvZ3JhbSBpZGVvbmU7CmNvbnN0IE1BWF9TID0gMTAwOyAgLy8gZGVmaW5pdWplIHJvem1pYXIgc3Rvc3UKIAp2YXIKICBTIDogYXJyYXlbMC4uTUFYX1MtMV0gb2YgZG91YmxlOyAvLyBzdG9zCiAgcCA6IGludGVnZXI7ICAgICAgICAgICAgICAgICAgICAgLy8gd3NrYcSNbmlrIHN0b3N1CiAgZSA6IHN0cmluZzsgICAgICAgICAgICAgICAgICAgICAgLy8gZWxlbWVudCB3eXJhX2VuaWEgT05QCiAgdjEsdjIgOiBkb3VibGU7ICAgICAgICAgICAgICAgICAgLy8gYXJndW1lbnR5IG9wZXJhY2ppCiAgYyA6IHdvcmQ7IC8vcGxpazp0ZXh0OyAgICAgICAgICAgICAgICAgICAgICAgLy8gcG96eWNqYSBiX8WVZHUgcHJ6eSBrb253ZXJzamkKYmVnaW4KIAovL2Fzc2lnbihwbGlrLCdkemlhbGFuaWUudHh0Jyk7Ci8vcmVzZXQocGxpayk7Ci8vcmVhZGxuKHBsaWssZSk7CiAKIAogIHAgOj0gMDsgICAgICAgICAgICAgIC8vIGluaWNqdWplbXkgc3RvczsKIAogIHJlcGVhdCAgICAgICAgICAgICAgIC8vIHcgcMWVdGxpIHByemV0d2FyemFteSB3eXJhX2VuaWUgT05QCi8vcmVhZGxuKHBsaWssZSk7ICAgICAgICAgLy8gb2Rjenl0dWplbXkgZWxlbWVudCB3eXJhX2VuaWEgT05QCnJlYWRsbihlKTsKIAogICAgaWYgZSA9ICc9JyB0aGVuIGJyZWFrOwogCiAgICB2YWwoZSx2MSxjKTsgICAgICAgLy8gZG9rb251amVteSBrb253ZXJzamkKIAogICAgaWYgYyA9IDAgdGhlbgogICAgYmVnaW4gICAgICAgICAgICAgIC8vIGxpY3piYQogICAgICBTW3BdIDo9IHYxOyAgICAgIC8vIHVtaWVzemN6YW15IGpfIG5hIHN0b3NpZQogICAgICBpbmMocCk7ICAgICAgICAgIC8vIHp3acWVa3N6YW15IHdza2HEjW5payBzdG9zdQogICAgZW5kCiAgICBlbHNlCiAgICBiZWdpbiAgICAgICAgICAgICAgLy8gb3BlcmF0b3IKICAgICAgdjEgOj0gU1twLTJdOyAgICAvLyBwb2JpZXJhbXkgemUgc3Rvc3UgZHdhIGFyZ3VtZW50eQogICAgICB2MiA6PSBTW3AtMV07CiAgICAgIGNhc2UgZVsxXSBvZiAgICAgICAgLy8gd3lrb251amVteSBvcGVyYWNqZSB3ZyBvcGVyYXRvcmEKICAgICAgICAnKycgOiB2MSA6PSB2MSArIHYyOwogICAgICAgICctJyA6IHYxIDo9IHYxIC0gdjI7CiAgICAgICAgJyonIDogdjEgOj0gdjEgKiB2MjsKICAgICAgICAnLycgOiB2MSA6PSB2MSAvIHYyOwogICAgICBlbmQ7CiAgICAgIFNbcC0yXSA6PSB2MTsgICAgLy8gd3luaWsgdW1pZXN6Y3phbXkgbmEgc3Rvc2llCiAgICAgIGRlYyhwKTsgICAgICAgICAgLy8gemUgc3Rvc3Ugem5pa27FlV9hIGplZG5hIGxpY3piYQogICAgZW5kOwogCiAgdW50aWwgZmFsc2U7CiAKICB3cml0ZWxuKFNbcC0xXTowOjYpOyAvLyB3eXBpc3VqZW15IHd5bmlrIHplIHN6Y3p5dHUgc3Rvc3UKICByZWFkbG47CiAgLy9jbG9zZShwbGlrKTsKIAplbmQuIA==