比赛代码 - COGS

比赛	Mister B的奇妙生活	评测结果	AAAAAAAAAA
题目名称	B先生和阅读	最终得分	100
用户昵称	delta_saberlover	运行时间	0.003 s
代码语言	Pascal	内存使用	0.17 MiB
提交时间	2017-09-08 20:16:40

显示代码纯文本

program cogs2756;
var
        c,v0,v1,a,p,i,re,sum:integer;
begin
        assign(input,'MrBA.in');
        assign(output,'MrBA.out');
        reset(input);
        rewrite(output);
        read(c,v0,v1,a,p);
        i:=1;
        sum:=v0;
        if(v0>=c) then write('1')
        else
                begin
                        repeat
                                re:=v0+i*a;
                                if(re>=v1) then re:=v1;
                                i:=i+1;
                                sum:=re+sum-p;
                        until sum>=c;
                        write(i);
                end;
        close(input);
        close(output)
end.