Задано вещественное число К. Вычислите разность целой и дробной части числа К
Нет комментариев
Ответы
Гость Var
k,raznost: real;
begin
write('Введите К ');
readln(k);
writeln('Целая часть - ', int(k));
writeln('Дробная часть - ', frac(k));
raznost:= int(k)-frac(k);
writeln('Результат ',raznost );
end.
2 комментария:
vark,raznost: real;beginwrite('Введите К ');readln(k);writeln('Целая часть - ', int(k));writeln('Дробная часть - ', frac(k));raznost:= int(k)-frac(k);writeln('Результат ',raznost );end.
pascalABC
vark,raznost: real;beginwrite('Введите К ');readln(k);writeln('Целая часть - ', int(k));writeln('Дробная часть - ', frac(k));raznost:= int(k)-frac(k);writeln('Результат ',raznost );end.
pascalABC Похожие вопросы
Список предметов
