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

Ответы

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