Chủ đề này có 3 trả lời

[Onetwothree]

Viết một chương trình nhập vào số tiền của bạn và in ra tất cả các cách chia thành các tờ 5 ngàn, 2 ngàn và 1 ngàn

P/s: Cái đề này em ghi theo cách hiểu sau khi nghe lỏm được cái đề từ thằng bạn chớ em không nhớ kĩ lắm...  Có chỗ nào sai sót thì mọi người góp ý nhé !

[nghethuat102]

Viết một chương trình nhập vào số tiền của bạn và in ra tất cả các cách chia thành các tờ 5 ngàn, 2 ngàn và 1 ngàn

P/s: Cái đề này em ghi theo cách hiểu sau khi nghe lỏm được cái đề từ thằng bạn chớ em không nhớ kĩ lắm...  Có chỗ nào sai sót thì mọi người góp ý nhé !

Mình làm chỉ chạy 2 vòng for lòng nhau, chứ chạy 3 vòng họ trừ điểm :

var n,i,j,d,m,t:longint;

    begin

    repeat

    write('n=');

    readln(n);

    until n mod 1000=0;

    d:=0;

    for i:=0 to (n div 5000) do

        begin

             m:=n-i*5000;

             for j:=0 to m div 2000 do

                 begin

                   t:=m-j*2000;

                   if t mod 1000=0 then

                      begin

                           writeln('t5000= ',i,' t2000= ',j,' t1000= ',t div 1000);

                           d:=d+1;

                      end;

                 end;

        end;

    writeln('co ' ,d,' cach');

    readln;

    end.

[Onetwothree]

var n,k,a,j,i,b:longint;

begin

        writeln('vui long nhap so tien');readln(n);

        k:= n div 5;

        for a:=0 to k do

        begin

                j:= n-a*5;

                i:= j div 2;

                for b:=0 to i do

                begin

                        writeln('So to tien 5 ngan la ',a);

                        writeln('So to tien 2 ngan la ',b);

                        writeln('So to tien 1 ngan la ', n-a*5-b*2);

                        writeln;

                end;

                end;

        readln;

end.

[nghethuat102]

 

var n,k,a,j,i,b:longint;

begin

        writeln('vui long nhap so tien');readln(n);

        k:= n div 5;

        for a:=0 to k do

        begin

                j:= n-a*5;

                i:= j div 2;

                for b:=0 to i do

                begin

                        writeln('So to tien 5 ngan la ',a);

                        writeln('So to tien 2 ngan la ',b);

                        writeln('So to tien 1 ngan la ', n-a*5-b*2);

                        writeln;

                end;

                end;

        readln;

end.

 

Cũng hay!