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.