记录编号 106991 评测结果 AAAAAAAAAA
题目名称 [USACO Feb08] 奶牛式乘法 最终得分 100
用户昵称 Gravatarxly 是否通过 通过
代码语言 Pascal 运行时间 0.003 s
提交时间 2014-06-21 15:01:51 内存使用 0.15 MiB
显示代码纯文本
var
s:string;
a,m,n,i,j:integer;
begin
assign(input,'cowmult.in');
reset(input);
assign(output,'cowmult.out');
rewrite(output);
  read(s);
for i:=1 to length(s) do
  if s[i]=' ' then a:=i;
for i:=1 to a-1 do
  m:=m+ord(s[i])-48;
for i:=a+1 to length(s) do
  n:=n+ord(s[i])-48;
write(m*n);
   close(input);
   close(output);
end.