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

Question

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

Answer 1

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