Question

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

Answer 1

var K;
begin
readln(K);
writeln(floor(K)-frac(K))
end.