Информатика, опубликовано 2018-08-22 21:28:28 by Гость

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

Ответ оставил Гость

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

Не нашли ответа?

Если вы не нашли ответа на свой вопрос, или сомневаетесь в его правильности, то можете воспользоваться формой ниже и уточнить решение. Или воспользуйтесь формой поиска и найдите похожие ответы по предмету Информатика.