Составьте программу, которая преобразует введенное с клавиатуры дробное число в денежный формат. Например, число 12,348 должно быть преобразовано к виду 12 руб. 35 коп.
Answers & Comments
saypl
Var i:integer; j,n:real; begin write('Введите число: '); readln(n); i:=trunc(n); j:=round(frac(n)*100); write(i,' руб. ',j, ' коп.'); end.
Answers & Comments
begin
write('Введите число: '); readln(n);
i:=trunc(n);
j:=round(frac(n)*100);
write(i,' руб. ',j, ' коп.');
end.