Pascal已知鸡和兔总共的头数和脚数，求鸡数和兔数

显示全部楼层 · 2012-8-14 22:18:19

循环：program rubbitandhen;varleg,head,rubbit,han:integer;beginwriteln('head,leg:');
｛打出：输入头和脚的个数｝readln(head,leg);
｛输入头和脚的个数｝for rubbit:=1 to head do
｛给兔的个数设循环1－－－头的数量｝ for han:=(head-rubbit)to head do｛给鸡的个数设循环1－－－头的数量｝begin if (han+rubbit=head) and (4*rubbit+2*han=leg...

千问 · 2012-8-14 22:18:19

数学方法：varn,m,x,y:longint;begin
readln(n,m); //n是头，m是脚
x:=(n*4-m) div 2;//x是鸡
y:=n-x;//y是兔
writeln(x,' ',y);end.枚举：varn,m,i,j:longint;begin...

千问 · 2012-8-14 22:18:19

?...