评测结果：Unaccepted

得分：40

提交时间：2017-04-03 17:07 耗时：0ms

内存：8511kb

编译信息

编译成功

没有编译信息

分点信息（鼠标移到方块上有详细信息）

1

WA 0ms/8511kB

2

AC 0ms/8511kB

3

AC 0ms/8511kB

4

RE

5

RE 测试数据下载

测试点#1： Input file Output file

洛谷免费提供该记录第一个非AC的输入输出数据下载；部分题目因为版权等原因，不开放数据下载。24小时内，蓝名允许下载一次（一对输入及输出算一次），绿名2次，橙名3次，红名4次。灰名暂时不能下载数据。

源代码

var s1,s2:string; a,b,c:array[1..300]of integer; i,j,k,n,big,small:integer;

begin
 readln(s1);
 readln(s2);
  for i:=length(s1) downto 1 do
  a[length(s1)-i+1]:=ord(s1[i])-48;
  for i:=length(s2) downto 1 do
  b[length(s2)-i+1]:=ord(s2[i])-48;
  if length(s1)<length(s2) then begin big:=length(s2);small:=length(s1); end else begin big:=length(s1);small:=length(s1);end;
 for i:=1 to big do
 for j:=1 to small do
 c[i+j-1]:=c[i+j-1]+a[i]*b[j];
 for i:=1 to (big*small) do
 begin
 c[i+1]:=c[i+1]+c[i] div 10;
 c[i]:=c[i] mod 10;
 end;
 for i:=big+big-1 downto 1 do
 write(c[i]);
 writeln;
end.