Составить программу, которая бы выводила введенное пользователем нецелое число, обозначающее длину в метрах в виде целого количества метров, сантиметров, миллиметров и микрометров (при необходимости).
например: 1,234 м – это 1234 мм, 1,57 м – это 157 см, 0,00056 м – это 560 мкм
PascalABC.NET
begin
var L := ReadReal('Длина в м:');
if Frac(L) = 0 then
Println(L, 'м')
else
begin
L *= 100;
if Frac(L) = 0 then
Println(L, 'см')
else
begin
L *= 10;
if Frac(L) = 0 then
Println(L, 'мм')
else
begin
L *= 1000;
Println(Round(L,0), 'мкм')
end
end
end
end.