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

Question

Информатика

Витюха

26 сентября, 22:07

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

+4

Ответы (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.