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

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.