Задание
Составьте программу, которая преобразует введенное с клавиатуры дробное число в денежный формат. Например, число 45, 846 должно быть преобразовано к виду 45 руб. 85 коп.
- program task_6;
- var a, e: real;
- begin
- b, c, d: real;
- writeln \('Преобразование числа в денежный формат'\);
- write \('Введите дробное число \- '\);
- readln \(a\);
- e := a*100;
- b := round \(e\);
- c :=b div 100;
- d := b mod 100;
- write \(a:8:5, ' руб\. \- это ', c, ' руб\. ',d , ' коп\.'\);
- end.