vijos上的题目 通过量超过50的来

来源：百度知道 编辑：UC知道 时间：2024/06/17 14:47:14
本人急需要13道vijos 上的题目的程序源代码 希望大牛可以发下
1202 1207 1250 1347 1000 1001 1006 1007 1103 1104 1113 这几道题目是重点
如果答案好的话 每道题目我追加5分 哦
希望vijos爱好者们 帮帮忙啊
帮帮忙啊 pascal语言哦 正确答案的发哦

P1000
var a,b:longint;
begin
readln(a,b);
writeln(a+b);
end.
P1001
var a1:array[1..100] of string;
a4,a5:array[1..100] of char;
a2,a3,a6,a7:array[1..100] of integer;
a:array[1..100] of longint;
c,d,n:integer;max:longint;s1:char;s:string;
procedure panchong;
var k,t,c:Integer;s:string;
begin
for c:=2 to n do
if a[c]=a[c-1] then k:=c
else break;
for c:=2 to k do
if a7[c]<a7[1] then begin
t:=a7[c];a7[c]:=a7[1];a7[1]:=t;
s:=a1[c];a1[c]:=a1[1];a1[1]:=s;
end;
end;
procedure kp(l,r:integer);
var c,d,e:integer;s2:string;f:longint;
begin
c:=l;d:=r;e:=a[(c+d)div 2];
repeat
while a[c]>e do c:=c+1;
while a[d]<e do d:=d-1;
if c<=d then begin
f:=a[c];a[c]:=a[d];a[d]:=f;
f:=a7[c];a7[c]:=a7[d];a7[d]:=f;
s2:=a1[c];a1[c]:=a1[d];a1[d]:=s2;
c:=c+1;
d:=d-1;
end;
until c>d;
if c<