讨论 / 原来题目可以这样刷
&Ogravezyf2010 2010-07-19 15:38:00
点我顶贴 收藏 删除
var

i,t,j,ch:longint;

s1,s:string;

begin

readln(s);

i:=pos(' ',s);

s1:=copy(s,1,i-1);

delete(s,1,i);

t:=0;

for i:=1 to length(s1) do

begin

ch:=ord(s1[i])-ord('0');

for j:=1 to length(s) do

t:=t+ch*(ord(s[j])-ord('0'));

end;

writeln(t);

end.

#1 柳絮@2019-05-25 22:22:56
回复 删除
什么意思
查看更多回复
提交回复