Ввести с клавиатуры вещественное число, вывести на экран целое и дробное,

Ввести с клавиатуры вещественное число, вывести на экран целое и дробное, а также ближайшее целое к числу.
Паскаль.
СРОЧНО! ПОЖАЛУЙСТА

Задать свой вопрос
1 ответ

Наверняка так :З

var x:real;

Begin

 write('Введите число: '); read(x);

 writeln('Целое число: '+floor(x));

 var r:real := 1;

 for var i := 1 to length(''+(x-floor(x)))-2 do

   r := r * 10;

 writeln('Дробное число: '+((x-floor(x))*r + (floor(x) * r))+' / '+r+'');

 write('Округленно число: ', round(x));

End.

, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт