Cần có tổng 200 đồng từ 3 loại giấy bạc loại 10đ, 20đ và 5đ. Lập chương trình tìm tất cả các phương án có thể.(mik làm trong pascal nha) giúp vsssssss

Bài toán có tổng 200 đòng từ ba loại giấy bạc loại 10đ,20đ và 5đ.Lập chương trình tìm tất cả các phương án có thể.

Bài làm

Program Tim_so_tien;

Uses crt;

var n,d1,d2,d3:integer;

begin

         clrscr;

           writeln(' Nhap tong so tien can tim : ');readln(n);

              for d1:=0 to n div 10 do 

              for d2:=0 to n div 20 do 

              for d3:=0 to n div 5 do

              if d1*10+d2*20+d3*5=n then 

      writeln(' Can co giay bac loai 10d la : ', d1 ,' giay bac loai 20d la : ', d2 ,' giay bac loai 5d la : ', d3);

    readln

end.

Chúc em học tốt!!