大牛们,NOIP2005第一题,我知道很简单,可究竟哪错了?
来源:学生作业帮 编辑:大师作文网作业帮 分类:综合作业 时间:2024/09/20 17:22:11
大牛们,NOIP2005第一题,我知道很简单,可究竟哪错了?
var
n,i:integer;
ch,monitor,west:char;
na,k:string;
max,total,s,paper,score1,score2:integer;
begin
read(n);
for i:=1 to n do
begin
s:=0;
na:='';
read(ch);
while(ch' ') do
begin
na:=na+ch;
read(ch);
end;
read(score1);
read(score2);
read(ch);
read(monitor);
read(ch);
read(west);
readln(paper);
if (score1>80)and(paper>=1)then s:=s+8000;
if (score1>85)and(score2>80)then s:=s+4000;
if (score1>90)then s:=s+2000;
if (score1>85)and(west='Y')then s:=s+1000;
if (score2>80)and(monitor='Y')then s:=s+850;
if s>max then begin
max:=s;
k:=na;
end;
total:=total+s;
end;
writeln(k);
writeln(max);
writeln(total);
end.
var
n,i:integer;
ch,monitor,west:char;
na,k:string;
max,total,s,paper,score1,score2:integer;
begin
read(n);
for i:=1 to n do
begin
s:=0;
na:='';
read(ch);
while(ch' ') do
begin
na:=na+ch;
read(ch);
end;
read(score1);
read(score2);
read(ch);
read(monitor);
read(ch);
read(west);
readln(paper);
if (score1>80)and(paper>=1)then s:=s+8000;
if (score1>85)and(score2>80)then s:=s+4000;
if (score1>90)then s:=s+2000;
if (score1>85)and(west='Y')then s:=s+1000;
if (score2>80)and(monitor='Y')then s:=s+850;
if s>max then begin
max:=s;
k:=na;
end;
total:=total+s;
end;
writeln(k);
writeln(max);
writeln(total);
end.
应该用长整型将integer换成longint;
大牛们,NOIP2005第一题,我知道很简单,可究竟哪错了?
简单高一数学题,求解答!我觉得我没有算错啊,可是验算证明我答案错了,我究竟哪步不对???第一题
一道简单求极限的题 我想知道这样解究竟错在哪了.
选择第一题,三角函数的,我要的是过程,这种不会做了,我知道其实很简单.
第一题我知道正确答案是a,但我不知道d为什么错了.
第十八题,我知道很简单,但不知道怎么也算不出来了
求题,我知道很简单..
大学究竟是学什么的大一上学期马上就要结束了,可我感觉我过得好迷茫,每天都过得很……不知道自己究竟学到了什么,难道我的大学
物理题,应该算是很简单吧.可是我就不知道我怎么错了?
.我知道这些题很简单,但我实在不想做了
我知道很简单,但突然忘了,怎么写?
我知道很简单的 忘了