Конвертер денежных единиц

[vmilyoshin]

Старинными русскими денежными единицами являются: 1 рубль — 100 коп., 1 гривна — 10 коп., 1 алтын — 3 коп., 1 полушка — 0,25 коп. Имеется А копеек. Написать программу в Паскале для представления имеющейся суммы в рублях, гривнах, алтынах и полушках.
Помогите решить данное задание.

[CodeExpert]

Ну это ж элементарно..Школьная математика...К примеру 1567/100/10/3/0,25 ну и получается 15 рублей 6 гривен 2 алтыня и 4 полушки..Код покажите...

[vmilyoshin]

Вот код:

program den_ed;

uses crt;

var k : integer;
var r, g, a, p : real;

BEGIN
clrscr;
writeln ('Введите сумму в копейках:');
read (k);
r := k div 100;
g := k div 10;
a := k div 3;
p := k div 0.25;

writeln ('Ваша сумма равна: ',r:6:2,' руб. ',g:6:2,' грив. ',a:6:2,' алт. ',p:6:2,' пол.');

readln;
readln;
END.

Где тут ошибка? Если исключить из кода полушки, то всё работает.

[Grag]

p := k div 0.25;

[vmilyoshin]

Ну а как правильно написать? Подскажи неопытному.

[Grag]

P:=Int(k/0.25)

[vmilyoshin]

Спасибо!!! Всё получилось.