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

Question

Информатика

Дуня

30 октября, 06:44

Составьте программу, которая преобразует введенное с клавиатуры дробное число в денежный формат. Например, число 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.