ПАСКАЛЬ.Дано действительное число K вида nnn.ddd ( по 3 цифровых разряда в дробной и целой частях). Поменяйте местами дробную и целую часть числа и выведете полученное новое значение.ПАСКАЛЬ.
ПАСКАЛЬ.
Дано действительное число 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
Не нашли ответ?
Похожие вопросы