Viết chương trình đổi tờ giấy bạc mệnh giá nnghìn đồng ra các loại 500, 200, 100 nghìn đồng sao cho số tờ giấy bạc là ít nhất (với n nhập từ bàn phím)

0 bình luận về “Viết chương trình đổi tờ giấy bạc mệnh giá nnghìn đồng ra các loại 500, 200, 100 nghìn đồng sao cho số tờ giấy bạc là ít nhất (với n nhập từ bàn phím)”

1. Program BTT;
   Uses crt;
   Var loai500,loai200,loai100,n,m: integer;
   Begin
           Clrscr;
           Write(‘Nhap so tien can doi: ‘); Readln(n);
                   If n div 500 <> 0 then
                   Begin
                           loai500:=n div 500;
                           n:=n – loai500*500;
                   End;

                   If n div 200 <> 0 then
                   Begin
                           loai200:= n div 200;
                           n:=n – loai200*200;
                   End;

                   If n div 100 <> 0 then
                   Begin
                           loai100:=n div 100;
                           n:=n – loai100*100;
                   End;

           m:=loai500+loai200+loai100;
           Writeln(‘Doi duoc it nhat ‘,m,’ to tien’);
           If loai500 <> 0 then Writeln(loai500,’ to 500′);
           If loai200 <> 0 then Writeln(loai200,’ to 200′);
           If loai100 <> 0 then Writeln(loai100,’ to 100′);
           If (n<100) and (n<>0) then Write(‘Con ‘,n,’ nghin khong doi duoc’);
           Readln
   End.

   Bình luận