Question

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

Answer 1

var
k,raznost: real;
begin
write('Введите К ');
readln(k);
writeln('Целая часть - ', int(k));
writeln('Дробная часть - ', frac(k));
raznost:= int(k)-frac(k);
writeln('Результат ',raznost );
end.

Answer 2

var
k,raznost: real;
begin
write('Введите К ');
readln(k);
writeln('Целая часть - ', int(k));
writeln('Дробная часть - ', frac(k));
raznost:= int(k)-frac(k);
writeln('Результат ',raznost );
end.

Answer 3

pascalABC