祝愿大家RP++

var

s:array[0..1000000]of integer;

i,j:longint;

begin

s[0]:=1;s[1]:=400;

for i:=-400 to 400 do

begin

for j:=1 to s[0] do

s[j]:=s[j]*400

for j:=1 to s[0] do

begin

s[j+1]:=s[j+1]+s[j] div 10;

s[j]:=s[j] mod 10;

end;

while s[s[0]+1]>0 do

begin

inc(s[0]);

s[s[0]+1]:=s[s[0]] div 10;

s[s[0]]:=s[s[0]] mod 10;

end;

end;

end.

祝愿大家明天全都400

~~引用某人的话

星空下RP++++++