Viết chương trình pascal để tìm lời giải cho bài toán sau:
Trăm trâu trăm bó cỏ
Bó lại cho tròn
Trâu dứng ăn năm
Trâu nằm ăn ba
Năm trâu nghé ăn một
Hỏi có bao nhiêu trâu đứng, bao nhiêu trâu nằm và bao nhiêu trâu nghé?
Viết chương trình pascal để tìm lời giải cho bài toán sau: Trăm trâu trăm bó cỏ Bó lại cho tròn Trâu dứng ăn năm Trâu nằm ăn ba Năm trâu nghé ăn một H
By Audrey
uses crt;
var dung, nam , gia : integer;
begin clrscr;
for dung := 1 to 100 do
for nam := 1 to 100 do
for gia :=1 to 100 do
begin
if (nam + dung+gia = 100) and (5*dung+3*nam+gia/3 = 100) then
writeln(‘ So trau dung :’,dung:3, ‘ so trau nam la :’, nam:3, ‘so trau gia la :’,gia:3);
end;
readln
end.
Program Hotboy ;
Uses crt;
Var x,y,z:byte;
Begin
Clrscr;
For x:=0 to 100
For y:=0 to 100 do
For z:=0 to 100 do
If (x+y+z=100) and (x*5+y*3+z/5=100) then
Begin
Writeln(‘Trau dung la’,x);
Writeln(‘Trau nam la’,y);
Writeln(‘Trau nghe: ‘,z);
End;
Readln
End.