>> Стандартное решение: >> perl -MData::Dumper -e 'print Dumper( int((8.37-0.37 )*100 + 0.5) == >> 800)' > 100, а на 1000. 1000 тоже не поможет :-) # perl -e'printf "%3.20f", 100 * (8.37 - 0.37)' 799.99999999999988631316 -- Andrew Shitov ______________________________________________________________________ andy на shitov.ru | http://shitov.ru