Дано действительное число x<10. Получить целую и пробную часть числа x.
Дано действительное число x<10. Получить целую и пробную часть числа x.
ЯП?
Да
Какой именно язык?)
Паскаль

Предыдущий
вопрос Следующий
вопрос

program RealNumber;

var
x: real;
intPart: integer;
fracPart: real;

begin
writeln('Введите действительное число x (<10): ');
readln(x);

intPart := trunc(x);
fracPart := x - intPart;

writeln('Целая часть числа x: ', intPart);
writeln('Дробная часть числа x: ', fracPart:0:2);
end.