Программа мəтіні
Program banknot (input, output);
var s, sk : longint;
bk : integer;
procedure bb (v : integer; var ss,ssk: longint); (* v – cennoct banknot *) (*ss – summa deneg *)
(*ssk – kol-vo banknot *)
var b : integer;
begin
b := ss div v;
if b> 0 then
320
begin
ssk := ssk + b; writeln (v, ' tengelik : ', b, '':2); ss := ss mod v; end
end;
begin (*nachalo programmy*)
writeln ('summa deneg: ');
read (s);
sk := 0; bk:=0;
(* obrachenia k proc bb*)
(10000, s, sk); bb (5000, s, sk); bb (2000, s, sk); bb (1000, s, sk); bb (500, s, sk); bb (200, s, sk); bb (100, s, sk); bb (50, s, sk); bb (20, s, sk); bb (10, s, sk); bb (5, s, sk);
bb (1, s, sk);
writeln ('vsego ', sk, ' banknot.') end.
Достарыңызбен бөлісу: |
