编译通过...

├ 测试数据 01：答案错误...程序输出比正确答案长

├ 测试数据 02：答案错误...程序输出比正确答案长

├ 测试数据 03：答案错误...　├ 标准行输出

　├ 错误行输出

├ 测试数据 04：答案错误...程序输出比正确答案长

├ 测试数据 05：答案错误...程序输出比正确答案长

├ 测试数据 06：答案错误...程序输出比正确答案长

├ 测试数据 07：答案错误...程序输出比正确答案长

├ 测试数据 08：答案错误...程序输出比正确答案长

├ 测试数据 09：答案错误...程序输出比正确答案长

├ 测试数据 10：答案错误...程序输出比正确答案长

---|---|---|---|---|---|---|---|-

Unaccepted 有效得分：0 有效耗时：0ms

program P1198;

var a:array[0..200] of record

A1,B2:longint

end;

f:array[0..200,0..200] of longint;

i,l,j,k,m,n:longint;

function cost(x,xx:longint):int64;

begin

for l:=1 to a[xx].B2-1 do

x:=x*x;

exit(a[xx].A1*x);

end;

begin

fillchar(f,sizeof(f),9999999);

read(n,m);

for i:=1 to m do read(a[i].A1,a[i].B2);

for i:=1 to n do f[1,i]:=cost(i,1);

for i:=2 to m do

for j:=i to n do

for k:=1 to j do

if f+cost(k,i)