zadach129.BAS

{* Задача129 *}

REM basic

' Дана десятичная дробь. Округлить её с точностью до двух знаков после запятой.


10 INPUT"Введите_дробь";A 
20 B=A*100 
30 B=B+0.5 
40 B=INT(B) 
50 B=B/100 
60 PRINT "Округлённая дробь-";B 
70 End