Question

Создать программу, округляющую и выводящую на экран вещественное число, введенное пользователем с клавиатуры в переменную типа double. Подсказка: операцию округления числа можно получить как композицию операции приведения к целому типу и ещё одной арифметической операции.

Answer 1

var

 x: double;

 res: integer;

 func: real;

function fraction(x: real): real;

begin

 fraction := x - Int(x);

end;

begin

 readln(x);

 func := fraction(x);

 if (func >= 0.5) then  

   writeln(Int(x) + 1) else  

   writeln(Int(x));

end.