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

Question

Информатика

Варюха

17 июля, 00:15

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

+5

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