program Сдача;
var s,k500,k100,k50,k10:integer;
begin
readln(s);
k500:=s div 500;
s:= s mod 500;
k100 := s div 100;
s:= s mod 100;
k50:= s div 50;
s := s mod 50;
k10 := s div 10;
s := s mod 10;
writeln('сдано:');
writeln('Куплю по 500р - ', k500);
writeln('Куплю по 100р - ', k100);
writeln('Куплю по 50р - ', k50);
writeln('Куплю по 10р - ', k10);
end.
Ввод:
4960
Вывод:
4960
сдано:
Куплю по 500р - 9
Куплю по 100р - 4
Куплю по 50р - 1
Куплю по 10р - 1
var s,k500,k100,k50,k10: integer;
begin
readln(s);
k500:=s div 500;
s:=s mod 500;
k100:=s div 100;
s:=s mod 100;
k50:=s div 50;
s:=s mod 50;
k10:=s div 10;
s:=s mod 10;
writeln('Сдано:');
writeln('купюр по 500р. - ',k500);
writeln('купюр по 100р. - ',k100);
writeln('купюр по 50р. - ',k50);
writeln('купюр по 10р. - ',k10);
end.