Дано вещественное число x. Напишите программу, которая уменьшает в 2 раза целую часть...

Question

Дано вещественное число x. Напишите программу, которая уменьшает в 2 раза целую часть числа x и выводит на экране монитора результат.

Answer 1

Var x,b:real;
begin
readln(x);
b:= x div 2;
write(b);
end.