Составьте программу, которая преобразует введенное с клавиатуры дробное число в денежный формат. Например, число 12,348 должно быть преобразовано к виду 12 руб. 35 коп.

Question

Пётр Колесников

Информатика

17 марта, 08:06

Составьте программу, которая преобразует введенное с клавиатуры дробное число в денежный формат. Например, число 12,348 должно быть преобразовано к виду 12 руб. 35 коп.

+3

Ответы (1)

Знаешь ответ на этот вопрос?

Дамир Богомолов · Answer 1

Var i:integer; j, n:real;

begin

write ('Введите число: '); readln (n);

i:=trunc (n);

j:=round (frac (n) * 100);

write (i,' руб. ', j, ' коп.');

end.