主题：三道题
dxwxy
[专家分：80] 发布于 2008-01-05 21:47:00
1． 求s=1+4+7+…+298的值。
2． 编写一个评分程序，接受用户输入10个选手的得分(0-10分)，然后去掉一个最高分和一个最低分，求出某选手的最后得分(平均分)。
3． 用一张一元票换1分、2分和5分的硬币，每种至少一枚， 问有哪几种换法（各几枚）？
每题30[em18][em18][em18][em18][em18][em18][em18][em14][em14][em58][em58][em58][em58][em58]
回复列表 （共5个回复）
沙发
angwuy [专家分：2280] 发布于 2008-01-06 12:50:00
先把你的课本看完后再来这问问题
板凳
bc594926180 [专家分：0] 发布于 2008-01-26 19:50:00
program ex1;
var i,s:integer;
begin
s:=0;
for i:=1 to 99 do
s:=3*i+1+s;
writeln(s);
end.
3 楼
@左思@ [专家分：110] 发布于 2008-06-12 21:15:00
program ex1;
var i,s:integer;
begin
s:=1;
for i:=1 to 99 do
s:=s+i*3;
writeln(s);
end.
4 楼
@左思@ [专家分：110] 发布于 2008-06-12 21:20:00
program ex2;
var s:array[0..10]of integer;
i,max,min:integer;
begin
for i:=1 to 10 do
begin
read(s[i]);
if s[i]>minint then min:=i;
if s[i]<maxint then max:=i;
end;
for i:=1 to 10 do
if (i<>max) and (i<>min) then s[0]:=s[0]+s[i];
writeln(s[0] mod 8);
end.
5 楼
@左思@ [专家分：110] 发布于 2008-06-12 21:26:00
program ex3;
var
begin
for x:=1 to 100 do
for y:=1 to 100 do
begin
z:=100-x-y;
if x+2*y+5*z=100 then write('1:',x,'2:',y,'5:',z);
end;
end.
还可以优化一下，不过懒得想，自己好好思考一下吧！
我来回复
您所在位置：