ПАСКАЛЬ.Дано действительное число K вида nnn.ddd ( по 3 цифровых разряда в дробной и...

Question

ПАСКАЛЬ.
Дано действительное число K вида nnn.ddd ( по 3 цифровых разряда в дробной и целой частях). Поменяйте местами дробную и целую часть числа и выведете полученное новое значение.
ПАСКАЛЬ.

Answer 1

Var
  a, b: real;
  ip, fp: integer;

begin
  Write('Введите число в формате nnn.nnn ->');
  Readln(a);
  ip := trunc(a);
  fp := trunc(1000 * (a - ip));
  b := fp + ip / 1000;
  writeln('Результат: ', b)
end.

Тестовое решение:
Введите число в формате nnn.nnn ->135.782
Результат: 782.135