#1 某魔塔一路暴狂@2013-07-15 00:57:00
30277
回复
删除
程序如下
var
sa,a,b,i,j:longint;
s:string;
begin
readln(s); sa:=0; b:=0;
for i:=1 to length(s) do begin
if s[i]<>' ' then begin
a:=ord(s[i])-48;
sa:=sa+a;
end else break;
end;
for j:=i+1 to length(s) do begin
a:=ord(s[j])-48;
b:=b+a;
end;
writeln(sa*b);
end.