Question

Задано вещественное число K. Вычислите разность целой и дробной части числа K.

Answer 1

var a,b:real;
begin
readln(a);
b:=trunc(a)-frac(a);
writeln(b);
end.