Question

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

Answer 1

Var s:string;
n:real;
q:integer;
begin
readln(n);
writeln(trunk(n),' rub ',trunk(n*100) mod 100,' kop');
end.

Answer 2

Для решения этой задачи вам понадобится преобразовать введенное число в строку, затем разделить его на целую и десятичную части. После этого можно будет преобразовать целую часть числа в рубли и десятичную часть в копейки, добавив соответствующие обозначения. Вот пример кода на языке Pascal, решающего данную задачу:

pascalCopy code
program MoneyFormat;

var
  number: real;
  rubles, kopeks: integer;

begin
  // Ввод числа
  writeln('Введите число:');
  readln(number);

  // Получение целой и десятичной частей числа
  rubles := trunc(number);
  kopeks := round((number - rubles) * 100);

  // Вывод в денежном формате
  writeln(rubles, ' rub ', kopeks, ' kop');

end.

В этом коде переменная number содержит введенное дробное число. Функция trunc используется для получения целой части числа, а функция round применяется для округления десятичной части до целого числа. Затем целая и десятичная части выводятся вместе с обозначениями рублей и копеек.