UC知道计算机程序高手帮帮忙~
来源：百度知道 编辑：UC知道 时间：2024/05/29 02:46:07
今天老师给我们布置了一个作业（PS：要我们用电脑程序格式做），题目是：已知笼中有30个头，脚有90只，鸡和兔各有多少只？
不明白的看例题：
输入2个正整数：A.B，试交换A和B的值
Program ex_5;
var a,b,c :integer;
begin
Readln(a,b)
c=:a
a=:b
b=:a
writeln(a,b);
end(PS：如果字母有错是我没看清楚）
请大家帮帮我啊~~
不明白的看例题：
输入2个正整数：A.B，试交换A和B的值
Program ex_5;
var a,b,c :integer;
begin
Readln(a,b)
c=:a
a=:b
b=:a
writeln(a,b);
end(PS：如果字母有错是我没看清楚）
请大家帮帮我啊~~
下面的程序调试通过：
program exp;
var j,t:integer;
begin
for j:=0 to 30 do
begin
t:=30-j;
if j*2+t*4=90 then writeln('鸡=',j,',兔=',t);
end;
end.
程序运行结果：
鸡=15,兔=15