pascal鸡兔同笼问题。新手请教~~~~

本人是Pascal编程初学者。做到一道鸡兔同笼的练习题。

  其中j代表鸡，t代表兔，h代表头，f代表脚；鸡兔同笼，头30，脚90；

  根据数学算法答案应是鸡兔格15只，但不知为什么编出程序算出兔有30鸡有15.

程序如下，求高手助小生编译一下，多谢。

program exl26；
  var
   j,t:byte;
  const
   h=30;f=90;
begin
  t:=h-j;
  j:=(4*h-f) div 2;
  writeln('t=',t,' ':4,'j=',j);
  readln
end.

t:=h-j;和 j:=(4*h-f) div 2;弄反了。

j的初始值为0，t（兔子）当然为三十了。

program exl26;
  var
   j,t:byte;
  const
   h=30;f=90;
begin
   j:=(4*h-f) div 2;
  t:=h-j;
  writeln('t=',t,' ':4,'j=',j);
  readln
end.

如以上问答内容为低俗/色情/暴力/不良/侵权的信息，可以点下面链接进行举报，我们会做出相应处理，感谢你的支持！

点此我要举报以上问答信息