饿~~~ 本人是一个pascal超级菜鸟 有题目要问 请解答者只用简单语句解答

来源：百度知道 编辑：UC知道 时间：2024/07/04 12:46:07
1.2、某机关组织游泳比赛。将一堆西瓜分给前三名，把该堆西瓜中的一半又半个西瓜奖给第一名；剩下的一半又半个西瓜给第二名；把最后剩下的一半又半个西瓜给第三名，但每次分时并没切开任何一个西瓜，且刚好西瓜分完。问前三名各分到多少个西瓜?
1.3.已知鸡兔同笼 共有头30个 脚90只 求鸡数和兔数?
请注意哦 简单语句回答 不用for 语句 if语句 以及其他循环语句 只用read write 以及 赋值语句解答

var
i:integer;
x:real;
begin
for i:=4 downto 1 do x:=(x+0.5)*2;
for i:=1 to 3 do
begin
x:=(x/2)-0.5;
writeln(x;0:0);
end;
readln;
end.

第二题

var
t,j:integer;
begin
for t:=1 to 29 do
for j:=1 to 15 do
if (t+j=30) and (j*2+t*4=90) then
write(j:2,t:3);
readln;
end.

只用赋值语句？！
你那是编程题还是数学题啊？！
只用赋值的你自己算好了打上去不就完了