Жемчужников 3 ноября 2019 в 05:21

ПАСКАЛЬ:Требуется преобразовать введённое дробное число в денежный формат. Например, число «12.34» должно быть представлено в виде «12 rub 34 kop».
ФОРМАТ ВХОДНЫХ ДАННЫХ:
Вводится одно неотрицательное вещественное число, которое не превосходит 10в 5 степени, задано с точностью до двух знаков после запятой.
ФОРМАТ ВЫХОДНЫХ ДАННЫХ:
Выведите данное число в денежном представлении. Выводить ведущие нули в количестве копеек не нужно.

Var s:string;
n:real;
q:integer;
begin
readln(n);
writeln(trunk(n), rub ,trunk(n*100) mod 100, kop);
end.
Для комментирования необходимо зарегистрироваться на сайте