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

Question

Информатика

Витюха

17 марта, 01:52

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

+2

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