Higuchi @ 2018-05-17 17:24:52
var a,b,c:array[1..10000000]of longint; s,s1,t:string; i,j,n:longint; begin readln(s); readln(s1); if (s='0')or(s1='0') then begin write(0);halt;end; for i:=1 to length(s) do a[length(s)-i+1]:=ord(s[i])-ord('0'); for i:=1 to length(s1) do b[length(s1)-i+1]:=ord(s1[i])-ord('0'); for i:=1 to length(s) do begin k:=0; for j:=1 to length(s1) do begin c[i+j-1]:=c[i+j-1]+a[i]b[j]+k; k:=c[i+j-1] div 10; c[i+j-1]:=c[i+j-1] mod 10; end; c[i+j]:=0; end; n:=length(s)length(s1)+10; while c[n]=0 do dec(n); for i:=n downto 1 do write(c[i]); end.
by Higuchi @ 2018-05-17 17:25:55
var
a,b,c:array[1..10000000]of longint;
s,s1,t:string;
i,j,n:longint;
begin
readln(s);
readln(s1);
if (s='0')or(s1='0') then begin write(0);halt;end;
for i:=1 to length(s) do a[length(s)-i+1]:=ord(s[i])-ord('0');
for i:=1 to length(s1) do b[length(s1)-i+1]:=ord(s1[i])-ord('0');
for i:=1 to length(s) do
begin
k:=0;
for j:=1 to length(s1) do
begin
c[i+j-1]:=c[i+j-1]+a[i]b[j]+k;
k:=c[i+j-1] div 10;
c[i+j-1]:=c[i+j-1] mod 10;
end;
c[i+j]:=0;
end;
n:=length(s)length(s1)+10;
while c[n]=0 do dec(n);
for i:=n downto 1 do write(c[i]);
end.
不知道怎么排版qqq……凑合着看吧，求大佬……
by 温情 @ 2018-05-17 18:10:02
在您回复讨论的时候上面不是有一排菜单可以用来加粗字体或者设置标题的吗。
倒数第五个按钮就是插入代码。
by bulabulahen @ 2018-05-17 19:10:10
不懂
by Rolston @ 2018-05-17 19:14:29
python大法好
by shadowice1984 @ 2018-05-17 19:17:48
转c++吧……
都8120年了还有人用p
by lixicheng @ 2018-06-19 19:53:05