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