var a,b,s2,l,m:longint;
s,ss:string; c:integer;
begin
readln(a,b);
writeln(a:4);
write('*'); writeln(b:3); writeln('-----');
if b>10 then
begin
str(b,s); val(copy(s,2,1),s2,c); {val函数必须要有第三个参数c,返回转换过程中有无出错}
writeln(a*s2:4);
str(a*s2,s);
l:=4-length(s)+1;
str(a,s);
str(b,ss);
val(copy(ss,1,1),m,c);
writeln(a*m:l+length(s)-1);
writeln('-----');
writeln(a*b:4);
end
else writeln(a*b:4);
end.
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024