超级无敌的问题背景描述！！！！我只有在无语中暗暗佩服作者的想象力~~~ [复制链接]

希望

FYHFGHFGH

什么啊？？？

o?haoqi,wolaikankan
             

的确

想问一下有没有测试数据啊?

另外附我写的程序,请看看对不对啊?

program conan;

var
    n,x,y,k,f,page,i,ceh:integer;
    jz:array [1..1000] of integer;

procedure input;
begin
    read(n);
    readln(k);
    readln(f);
    For i := 1 to n do begin
        jz:=0;
        end;
    For i:= 1 to  f do begin
        read(x);
        readln(y);
        jz[x]:=y;
    end;
end;

procedure work;
begin
    page:=0;
    ceh:=0;
    For i:= 1 to  n  do begin
    ceh:=i+1+jz;
    if ceh>k then begin
         page:=page +1;
         ceh:=1+jz;
           end;
        end;
end;

begin
        input;
        work;
        write(page);
end.

[为了简便，本人没有使用文件]

dgfdgdf

thank you

什么样子的题目?

啥子玩艺？