—♦ Forum K10 SP Tin ♦—

Học không chơi phí thời thanh niên,chơi mà không học bán rẻ tương lai !


    lap trinh...........................................

    Share
    avatar
    Admin
    Moderators
    Moderators

    Tổng số bài gửi : 152
    Join date : 12/09/2011
    Age : 26
    Đến từ : hà giang

    lap trinh...........................................

    Bài gửi by Admin on 11/11/2011, 12:32

    Câu 1: Viết pt giải bài toán:
    Trăm trâu trăm bò
    Trâu đứng ăn năm
    Trâu nằm ăn ba
    Lụ khụ trâu già
    Ba con một bó
    Hỏi có bao nhiêu trâu đứng, trâu nằm, trâu già?

    Giải

    Program cau1;
    {uses crt;}
    Var x, y, z: integer;
    Begin
    Writeln(‘************** GIAI BAI TOAN *********’);
    Writeln(‘******* TRAM TRAU, TRAM CO********’);
    Writeln(‘Cac truong hop co the say ra: ‘);
    Writeln(“);
    For x:= 1 to 100 do
    For y:= 1 to 100 do
    For z:= 1 to 100 do
    If ((x+y+z)= 100) then
    If (5*x+3*y+1/3*z= 100)
    Then
    Begin
    Writeln(‘trau dung: ‘,x,’con; trau nam: ‘,y’ con; trau gia: ‘z,’ con’); end ;

    Readln
    End.


    _____________________________________________



      Hôm nay: 18/11/2018, 23:59