Алина Маркусова
Ученик
(202)
1 неделю назад
kumir
VAR s, k1000, k500, k100, k50,
BEGIN
s:=850; // Change amount
k1000:=s div 1000; s:=s mod 1000;
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;
k5:=s div 5; s:=s mod 5;
k1:=s;
PRINT "1000: ", k1000;
PRINT "500: ", k500;
PRINT "100: ", k100;
PRINT "50: ", k50;
PRINT "10: ", k10;
PRINT "5: k5;
PRINT "1: ", k1;
END.