Оқулық Қазақстан Республикасы Білім жəне ғылым министрлігі бекіткен Алматы, 2011 1



бет209/210
Дата06.01.2022
өлшемі4,42 Mb.
#16437
түріОқулық
1   ...   202   203   204   205   206   207   208   209   210
Байланысты:
boribaev-algoritmdeu

Программа мəтіні
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*)



  1. (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.







Достарыңызбен бөлісу:
1   ...   202   203   204   205   206   207   208   209   210




©emirsaba.org 2024
әкімшілігінің қараңыз

    Басты бет