讨论 / 大家其实都想复杂了,这就是多项式乘法
某魔塔一路暴狂 2013-07-15 00:57:00
点我顶贴 收藏 删除
RT
#1 某魔塔一路暴狂@2013-07-15 00:57:00
回复 删除
程序如下

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.

查看更多回复
提交回复