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

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