回复：提问的艺术-想尽快解决问题的朋友请仔细查看【pascal吧】

如楼上图片，怎么办？是下载不好还是怎么滴

大神好
如果我想弹出这个东西该怎麼输入语法

顶

一个洛阳铲下去

如何在屏幕上打出* *** *****这样的三角

var
year:integer;
begin
readln(year);
if (year mod 400=0) or (year mod 4=0)and（year mod 100<>0） then writeln('Yes') else writeln('No');
end.
哪错了？？？？

顶

var
j,k,n,r,i,m,y,ans,x:longint;
a,b:array[1..100000] of longint;
procedure qsort(h,r:longint);
var
j,i,k:longint;
x:longint;
begin
if h<=r then begin
i:=h;j:=r;k:=a[h];
while i<j do begin
while (a[j]>k) and (i<j) do dec(j);
if i<j then begin a[i]:=a[j];inc(i);end;
while (a[i]<=k) and (i<j) do inc(i);
if i<j then begin a[j]:=a[i];dec(j);end;
end;
a[i]:=k;
qsort(h,i-1);
qsort(i+1,r);
end;
end;
function min(e,f,g:longint):longint;
begin
if (e<=f) and (e<=g) then min:=1;
if (f<=e) and (f<=g) then min:=2;
if (g<=e) and (g<=e) then min:=3;
end;
begin
readln(n);
for i:=1 to n do
read(a[i]);
qsort(1,n);
ans:=0;
a[n+1]:=maxlongint;
for i:=1 to n-1 do begin
k:=a[i]+a[i+1];
ans:=ans+k;
j:=i+1;
while k>a[j+1] do begin
a[j]:=a[j+1];
inc(j);
end;
end;
x:=1;
y:=1;
r:=0;
for i:=1 to n-1 do begin
k:=min(a[x]+a[x+1],a[x]+b[y],b[y]+b[y+1]);
case k of
1:begin m:=a[x]+a[x+1];inc(ans,m);inc(x,2);end;
2:begin m:=a[x]+b[y];inc(ans,m);inc(x);inc(y);end;
3:begin m:=b[y]+b[y+1];inc(ans,m);inc(y,2);end;
end;
inc(ans,m);inc(r);b[r]:=m;
end;
a[j]:=k;
writeln(ans);
end.
是答案错误；
问题名字为合并果子；
我输入
3
1 2 9
输出的是14
求解

有道理～～
有道理～～
有道理～～
有道理～～
有道理～～
有道理～～
有道理～～
有道理～～
有道理～～
有道理～～
有道理～～
有道理～～
有道理～～
有道理～～
有道理～～
有道理～～
有道理～～
有道理～～
有道理～～
有道理～～
有道理～～
有道理～～
有道理～～
有道理～～
有道理～～
有道理～～
有道理～～
有道理～～
有道理～～
有道理～～
有道理～～
有道理～～
有道理～～
有道理～～
有道理～～
有道理～～
有道理～～
有道理～～
有道理～～
有道理～～
有道理～～
有道理～～
有道理～～
有道理～～
有道理～～
有道理～～
有道理～～
有道理～～
有道理～～
有道理～～
有道理～～
有道理～～
有道理～～
有道理～～
有道理～～
有道理～～
有道理～～
有道理～～
有道理～～
有道理～～
有道理～～
有道理～～
有道理～～
有道理～～
有道理～～
有道理～～
有道理～～
有道理～～
有道理～～
有道理～～
有道理～～
有道理～～
有道理～～
有道理～～
有道理～～
有道理～～
有道理～～
有道理～～
有道理～～
有道理～～
有道理～～
有道理～～
有道理～～
有道理～～
有道理～～
有道理～～
有道理～～
有道理～～
有道理～～
有道理～～
有道理～～
有道理～～
有道理～～
有道理～～
有道理～～
有道理～～
有道理～～

一天最高可刷99点经验的。
把如下语句复制，粘帖即可。
以前不懂
看贴总是不回，一直没提升等级和增加经验
现在我明白了
反正回贴可以升级
也可以赚经验
而升级又需要经验
我就把这句话复制下来

日	一	二	三	四	五	六

回复：提问的艺术-想尽快解决问题的朋友请仔细查看

扫二维码下载贴吧客户端