Программирование циклов на Паскале.
Покупатель должен заплатить в кассу S рублей. У него имеются монеты в 1, 2 и 5 рублей, а также купюры достоинством в 10, 50, 100 и 500 рублей (достаточное количество). Сколько монет и купюр разного достоинства отдаст покупатель, если он начинает платить с самых крупных?
Покупатель должен заплатить в кассу S рублей. У него имеются монеты в 1, 2 и 5 рублей, а также купюры достоинством в 10, 50, 100 и 500 рублей (достаточное количество). Сколько монет и купюр разного достоинства отдаст покупатель, если он начинает платить с самых крупных?
Answers & Comments
Verified answer
Varm1,m2,m5,m10,m50,m100,m500,s:integer;
begin
m1:=0;
m2:=0;
m5:=0;
m10:=0;
m50:=0;
m100:=0;
m500:=0;
readln(s);
while s>0 do
begin
if s>=500 then
begin
s:=s-500;
m500:=m500+1;
end
else
if s>=100 then
begin
s:=s-100;
m100:=m100+1;
end
else
if s>=50 then
begin
m50:=m50+1;
s:=s-50;
end
else
if s>=10 then
begin
s:=s-10;
m10:=m10+1;
end
else
if s>=5 then
begin
m5:=m5+1;
s:=s-5;
end
else
if s>=2 then
begin
m2:=m2+1;
s:=s-2;
end
else
begin
m1:=m1+1;
s:=s-1;
end;
end;
writeln('500р = ',m500);
writeln('100р = ',m100);
writeln('50р = ',m50);
writeln('10р = ',m10);
writeln('5р = ',m5);
writeln('2р = ',m2);
writeln('1р = ',m1);
end.