我表妹的兴趣班老师布置的作业,可怜我表妹四年级,平时也不用电脑的,让她怎么做出来啊!!!偏偏我也无能为力,其实题挺简单的,无奈我是个数学白痴。麻烦懂的大虾做一下,给个答案
1
Var
a, b,c:longint;
begin
read(a,b,c);
if a>b then
begin
case c of
0:write(a:2,b:2);
1:case b of
1:write(b:2,c:2);
2:write(c:2,c:2);
end;
end;
end;
end.
输入:3 2 1
输出:
2
Var
w,y,t:byte;
begin
readln(w,y);
if w<y then
begin
t:=w;
w:=y;
y:=t;
end;
writeln(w,’ ‘,y);
end.
输入:34 38
输出
3
Var a,b,c,d,e:integer
Begin
a:=89; b:=44; c:=67; d:=0; e:1;
if (a<c)or(b>c) then d:=d+e
else if (d+10<e) then
else d:=a-e;
writeln(d)
end. 输出:
4
Var ch : char;
i,n,sum:integer;
begin
sum:=0;
read(ch);
case ch of
‘A’:for i:=4 to 6 do
Begin
Read(n);
Sum:=sum+n
end;
‘B’:begin
read(n);
for i:=1 to n do
begin
read(n);
sum:=sum+n
end;
end;
‘C’:repeat
read(n);
sum:=sum+n
until sum >10;
‘D’:begin
read(n);
while n<=3 do
begin
sum:=sum+n;
read(n)
end
end;a,
end;
writeln(sum)
end.
输入A 4 1 2 3 4 5 6 7 8 9 输出
输入B 4 1 2 3 4 5 6 7 8 9 输出
输入C 4 1 2 3 4 5 6 7 8 9 输出
输入D 4 1 2 3 4 5 6 7 8 9 输出