讨论 / 谁有标程(pascal)?
996760929 2013-09-01 00:26:00
点我顶贴 收藏 删除
谁有标程(pascal)?
#1 lishuhanji@2013-09-01 00:24:00
回复 删除

var

s,m,t,u,f,d,rp:longint;

ch:char;

begin

readln(t,m,u,f,d);s:=0;

while t>0 do begin

readln(ch);

if ch='f' then t:=t-f-f

else t:=t-u-d;

inc(s);end;

write(s-1);

end.

#2 lishuhanji@2013-09-01 00:26:00
回复 删除
只管复制粘贴

只管复制粘贴,我都处理过了

查看更多回复
提交回复