17 баллов, сделать ** паскале Нужно заплатить S рублей, есть купюры 100, 50,10,2,1 рубль....

Question

17 баллов, сделать на паскале
Нужно заплатить S рублей, есть купюры 100, 50,10,2,1 рубль. Сколько купюр каждого достоинства нужно отдать покупателю, если он будет платить с самых крупных.

Answer 1

Var s,k1,k2,k3,k4,k5:integer;
begin
write('s='); readln(s);
k1:=s div 100;
k2:=s mod 100 div 50;
k3:=s mod 50 div 10;
k4:=s mod 10 div 2;
k5:=s mod 2;
writeln('100 - ',k1,',  50 - ',k2,',  10 - ',k3,',  2 - ',k4,',  1 - ',k5);
end.

Пример:
s=463
100 - 4,  50 - 1,  10 - 1,  2 - 1,  1 - 1