Trang Chính1
Trăm trâu trăm cỏ - Trâu đứng ăn 5 - Trâu nằm ăn 3 - Lộm Khộm trâu già - Ba con 1 bó.Hỏi bao nhiêu trâu mỗi loại Thu Oct 27, 2011 4:49 pm
kingofthedevils
Thành viên tích cực
uses wincrt;
var st,sc,td,tn,tg:integer;
begin
st:=100;
sc:=100;
for td:=0 to 20 do
for tn:=0 to 33-td do
for tg:=0 to 100-td-tn do
if (st=td+tn+tg) and (sc=5*td+3*tn+(tg div 3)) then
begin
writeln('so trau dung la ',td);
writeln('so trau nam la ',tn);
writeln('so trau gia la ',tg);
end;
readln
end.
-Phan Bảo Duy-
var st,sc,td,tn,tg:integer;
begin
st:=100;
sc:=100;
for td:=0 to 20 do
for tn:=0 to 33-td do
for tg:=0 to 100-td-tn do
if (st=td+tn+tg) and (sc=5*td+3*tn+(tg div 3)) then
begin
writeln('so trau dung la ',td);
writeln('so trau nam la ',tn);
writeln('so trau gia la ',tg);
end;
readln
end.
-Phan Bảo Duy-