есть неограниченное количество монет заданного номинала.Программа для размена заданной суммы наименьшим количеством монет (Паскаль

[xrystynka171]

есть неограниченное количество монет 1,2,5,10,25,50 копийок.создать программу, которая будет определять, какой наименьшим количеством монет можно выдать определенную сумму в гривнах,
н-р, исходные данные: сумма в гривнах 2,72
выходные: 8



______________
Название темы не соответствует правилам форума

Название темы по правилам форума должно адекватно отражать суть решаемой задачи/проблемы.
В этот раз я исправил название (и указал язык программирования) и ещё раз предупредил Вас.

В последующем, темы с подобным названием будут закрываться или удаляться,
а автор такой темы будет получать штрафные баллы.

Учтите это на будущее.

Модератор.

[Serge_Bliznykov]

массивы проходили, использовать умеете?

[xrystynka171]

ничего не умею)))

[ZX Spectrum-128]

http://programmersforum.ru/showthread.php?t=167284

[xrystynka171]

спасибо ,пробую

[xrystynka171]

ошибку видает
program z1;
var suma:real; kil,Kil1,Kil2,Kil3,Kil4,Kil5,Kil6:i nteger;
begin
readln(suma);
Kil1 := suma div 50;
suma := Suma mod 50;
Kil2 := Suma div 25;
Suma := Suma mod 25;
Kil3 := Suma div 10;
Suma := Suma mod 10;
Kil4 := Suma div 5;
Suma := Suma mod 5;
Kil5 := Suma div 2;
Suma := Suma mod 2;
Kil6 := Suma div 1;
Suma := Suma mod 1;
kil:=kil1+kil2+kil3+kil4+kil5+kil6;
writeln(kil);
readln;
end.

[ZX Spectrum-128]

Suma:integer;

Исправьте

Kil6 := Suma div 1;
Suma := Suma mod 1;

Этот код бессмысленный.

[xrystynka171]

а если вводить не целое

[xrystynka171]

а если не целое

[ZX Spectrum-128]

Вы же в копейках будете выдавать. А гривны умножьте на 100 и округлите.

Sumаr:real; suma:integer;
...
Readln(sumaR); // 2.72 гривны
Suma:=round(sumar*100); // 272 копейки