记录编号 237558 评测结果 AAAAAAAAAA
题目名称 [USACO Feb08] 奶牛式乘法 最终得分 100
用户昵称 Gravatar南风喃 是否通过 通过
代码语言 Pascal 运行时间 0.001 s
提交时间 2016-03-17 18:17:06 内存使用 0.17 MiB
显示代码纯文本
var
x:char;
a,b:string;
i,j,k,h,u,d,e:longint;
begin
assign(input,'cowmult.in');
assign(output,'cowmult.out');
reset(input);
rewrite(output);
read(x);
while x<>' ' do
begin
a:=a+x;
read(x);
end;
readln(b);
h:=length(b);
k:=length(a);
for i:=1 to k do
for j:=1 to h do
begin
d:=ord(a[i])-48;
e:=ord(b[j])-48;
u:=d*e+u;
end;
writeln(u);
end.