Giải bài toán cổ Trăm Trâu với Pascal

Giải bài toán cổ Trăm Trâu với Pascal

Trâu đứng ăn năm

Trâu nằm ăn ba

Lụ khụ trâu già

Ba con một bó

Trăm con ăn cỏ

Trăm bó no nê.

Hỏi có bao nhiêu trâu đứng , trâu nằm , trâu già ?

Code:

Program Tram_trau;
Var
    dung,nam,gia,co,trau:Integer;
Begin
    Writeln('BAI TOAN CO DIEN');
   Writeln('Tram trau tram co');
   Writeln('Trau dung an 5');
   Writeln('Trau nam an 3');
   Writeln('Ba trau gia an 1');
   Writeln('----------------');
   Writeln('           Bai toan nay co cac loi giai sau');
   For dung:=0 To 20 Do
       For nam:=0 To 33-dung Do
          For gia:=0 To (100-(dung+nam)) Do
             Begin
                co:=5*dung+3*nam+(gia Div 3);
               trau:=dung+nam+gia;
               If (gia Mod 3 =0) And (trau=100) And ( co=100) Then
                   Writeln('-Trau dung ',dung,' con, -Trau nam ',nam,' con, -Trau gia ',gia,' con');
            End;
   Writeln;
   Writeln('   Bam phim <Enter> de ket thuc');
   Readln
End.   
Bạn thấy bài viết này như thế nào?: 
Average: 6.1 (20 votes)
Ảnh của Tommy Tran

Tommy owner Express Magazine

Drupal Developer having 9+ year experience, implementation and having strong knowledge of technical specifications, workflow development. Ability to perform effectively and efficiently in team and individually. Always enthusiastic and interseted to study new technologies

  • Skype ID: tthanhthuy

Advertisement

 

jobsora

Dich vu khu trung tphcm

Dich vu diet chuot tphcm

Dich vu diet con trung

Quảng Cáo Bài Viết

 
Hãng Blackmagic Design ra mắt phiên bản Davinci Resolve 16

Hãng Blackmagic Design ra mắt phiên bản Davinci Resolve 16

Cách đây không lâu, hãng Blackmagic Design đã cho ra mắt phiên bản Davinci Resolve 16 tại NAB Show 2019 và giành chiến thắng ở giải thưởng “Best Editing Software” của Videomaker.

Tại sao Apple “kết thân” với Twitter, thay vì Facebook?

Tại sao Apple “kết thân” với Twitter, thay vì Facebook?

Apple tích hợp mạnh mẽ Twitter vào toàn bộ các ứng dụng trên hệ điều hành của mình.

Nữ diễn viên Hàn bị phạt 26.000 USD vì ngoại tình với anh rể

Phạt khoản tiền 30 triệu won (26.000 USD) vì ngoại tình với anh rể

Tin của Sports Kyunghyang ngày 3.8.2021 cho biết một nữ diễn viên đã bị tòa phạt 30 triệu won (26.000 USD) vì ngoại tình với anh rể. Phiên tòa xét xử diễn ra từ ngày 9/7 nhưng tới nay thông tin mới được tiết lộ.

Tomdesgin.vn

 

Drupal Services