讨论 / 求助,哪错了
447817119 2009-07-13 03:56:00
点我顶贴 收藏 删除
program asd;

var a,b,c,d,e,i,j,k,o:longint;

m:array[1..2000]of longint;

n:array[1..100] of string;

begin

read(a,b,c,d,e);

for i:=1 to b do

readln(n[i]);

for i:=1 to b do

begin

k:=0;

for j:=1 to i do

begin

if n[j]=’u’

then k:=k+c+e;

if n[j]=’f’

then k:=k+d+d;

if n[j]=’d’

then k:=k+c+e;

if k<a then o:=i;

end;

end;

write(o);

end.

查看更多回复
提交回复