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

 
Khóa học Drupal trực tuyến

Bình Dương mở khóa học Drupal trực tuyến

Bạn đang là lập trình viên PHP, Bạn đang muốn xây dựng 1 website thật nhanh chóng nhưng vẫn đảm bảo nhanh, bảo mật, linh động, đẹp, ...

Xử lý tình huống gặp nạn với thuốc xịt côn trùng

Xử lý tình huống gặp nạn với thuốc xịt côn trùng

Tương tự, nếu bị vấy thuốc vào mắt cần ngâm mắt vào nước ngay. Nước sẽ làm loãng nồng độ thuốc và giúp làm giảm sự kích ứng.

5 điểm lưu ý trong quảng cáo Google Adwords năm 2013

5 điểm lưu ý trong quảng cáo Google Adwords năm 2013

Sau nhiều năm phát triển Internet, có thể nói năm 2010 – 2012 là thời gian lan tỏa của công nghệ Internet tại Việt Nam và nhiều nước khác. Do sự phát triển quá mạnh mẽ, bộ máy làm việc của các công cụ tìm kiếm phải cập nhật liên tục, đặc biệt là Google.

Tomdesgin.vn

 

Drupal Services