Perl...

$ perl -le '$a=12.5; $a-=3.12 for(1..3); print $a; print $a*100; print int($a*100)'
3.14
314
313

$ perl -v

This is perl, v5.8.8 built for i486-linux-gnu-thread-multi

Сижу, чешу репу...