1樓：匿名使用者
1.加var
a,b,c:array[1..1000]of integer;
s1,s2:string;
n,n1,n2,i,j,k,d:integer;
begin
readln(s1);n1:=length(s1);
readln(s2);n2:=length(s2);
for i:=1 to n1 do a[n1-i+1]:=ord(s1[i])-48;
for i:=1 to n2 do b[n2-i+1]:=ord(s2[i])-48;
if n1>n2 then n:=n1
else n:=n2;
for i:=1 to n do c[i]:=a[i]+b[i];
d:=0;
for i:=1 to n do
begin
d:=c[i] div 10;
c[i+1]:=c[i+1]+d;
c[i]:=c[i] mod 10;
end;
if c[n+1]>0 then n:=n+1;
for i:=n downto 1 do write(c[i]);
end.
2.減var
a,b,c:array[1..1000]of integer;
s,s1,s2:string;
n,n1,n2,i,j,k:integer;
begin
readln(s1);n1:=length(s1);
readln(s2);n2:=length(s2);
if n1n2 then n:=n1
else n:=n2;
for i:=1 to n1 do
for j:=1 to n2 do
c[i+j-1]:=c[i+j-1]+a[i]*b[j];
d:=0;
for i:=1 to n1+n2 do
begin
d:=c[i] div 10;
c[i+1]:=c[i+1]+d;
c[i]:=c[i] mod 10;
end;
i:=n1+n2;
while c[i]=0 do i:=i-1;
n:=i;
for i:=n downto 1 do write(c[i]);
end.
一道大學物理題，高手請進，一道物理題，物理高手請進 ！！！！
德布羅意波長 入 h p h mv 6.63x10 34 0.04 x1000 1.6575x10 35 m 測不準關係的等式 p x h 4 既然速度的不確定度為0.1 那麼其位置的不確定度為 h 0.1mv 2.64x10 35 h p x p h 4 在 v v 0.1時即 v 100m s ...
一道Pascal題，pascal題目
vari,j,k integer beginfor i 1 to 5 dobeginfor j i downto 1 dowrite j for j 1 to 5 i do write 1 writeln end end 直接打的，可能會有細節上的錯誤。pascal題目 演算法分析 無論第i個瓶子塗什...
一道無機化學題，高手進，無機化學高手請進 一道無機化學推斷題
酸和鹽濃度相等時，緩衝液的緩衝效率為最高，比例相差越大，緩衝效率越低。根據這一原理，排除ab 緩衝液的一般有效緩衝範圍為pk 1ph 緩衝溶液的濃度越大，緩衝能力自然越強。這很容易理解，相同體積的兩種溶液，自然是溶質多的強 所以排除c。那就選d 這個題不用計算過程。看看就行了。也沒法計算 無機化學高...