Составьте программу, которая преобразует введённое с клавиатуры дробное число в денежный формат (например, 27,5 → 27 руб. 50 коп.). Язык: Pascal.

pascal




program MoneyFormat;
var
  x: real;
  rub, kop: integer;
begin
  write('Введите число: ');
  readln(x);
  rub := trunc(x);
  kop := round((x - rub) * 100);
  { если получилось 100 копеек, переводим их в рубль }
  if kop = 100 then
  begin
    rub := rub + 1;
    kop := 0;
  end;
  writeln(rub, ' руб. ', kop, ' коп.');
end.

Программа считывает дробное число, отделяет целую часть как рубли, а дробную часть умножает на 100 и округляет, получая количество копеек.

Например:

Введите число: 27.5
27 руб. 50 коп.

Введите число: 12.99
12 руб. 99 коп.