Задание

Составьте программу, которая преобразует введенное с клавиатуры дробное число в денежный формат. Например, число 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.