记录编号 | 106991 | 评测结果 | AAAAAAAAAA | ||
---|---|---|---|---|---|
题目名称 | [USACO Feb08] 奶牛式乘法 | 最终得分 | 100 | ||
用户昵称 | xly | 是否通过 | 通过 | ||
代码语言 | 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.