【NOIP2016提高A组模拟9.24】就是乘法

Description

这一天富爷又来找大头玩乘法游戏，然而不同于富爷的口算能力，大头只能列下了式子。第一题是432 × 5678：

４３２

５６７８

－－－－－－－

３４５６

３０２４

２５９２

２１６０

－－－－－－－

２４５２８９６

作为环保主义者的大头，认为最后一行的答案一定不能有任何的前导空格，当然了，对于某些行来说前导空格不能省。但是，珍惜资源的大头，认为任何一行都不能有任何的后导空格。作为完美主义者的大头，认为每一行的长度都应该和最后的答案行匹配。

啊，对了，有时大头还会遇到富爷的坑，假如第二个乘数有一个位置是0的话，你会发现一个0就是对应行的答案，那就把0挪到下一行，并省去这一行～～举个例子，对于200001 × 90040：

２００００１
９００４０

－－－－－－－－－－－

８００００４０

１８００００９００

－－－－－－－－－－－

１８００８０９００４０

第四行的最右边是一个0，就是前一行（已省去）挪下来的，而第五行的最后两个0，则是由前两行（已省去）挪下来的。

最后一个坑，对于那些只有一行中间答案的，那么最后一部分也可以省略，

246 × 70：

２４６

７０

－－－－－

１７２２０

在富爷压迫下的人民，你们准备好了吗？

Input

输入文件有多组测试数据，每行包含两个正数a,b，保证a,b均不超过6位。

当a = b = 0时，该数据结束，该组并不需要输出。

Output

输出文件包含多行，输出格式具体看样例。

Sample Input

432 5678

200001 90040

246 70

0 0

Sample Output



Data Constraint

保证a,b均不超过6位

比赛时の想法

模拟，注意位置和要输出Problem x~

我好懒啊

贴代码

var
s,ss1:array[0..100]of string;
cy:array[0..100]of longint;
i,j,k,l,x,cc,len,len1,kkk:longint;
ss,s1,s2:string;
n,m:int64;
begin
// assign(output,'t1.out'); rewrite(output);
while true do
begin
readln(n,m);
if (n=0) and (m=0) then break;
inc(kkk);
writeln('Problem',' ',kkk);
s:=ss1;
str(n,s[1]);
str(m,s[2]);
str(n*m,s1);
l:=length(s1);
for i:=1 to l do s[3]:=s[3]+'-';
while length(s[1])<length(s[3]) do s[1]:=' '+s[1];
while length(s[2])<length(s[3]) do s[2]:=' '+s[2];
l:=3;
str(m,s1);
ss:='';
cc:=0;
len:=length(s1);
for i:=len downto 1 do
begin
x:=ord(s1[i])-48;
if x=0 then ss:=ss+'0' else
begin
k:=x*n;
str(k,s2);
s2:=s2+ss;
inc(l);
cy[l]:=len-i-length(ss);
ss:='';
s[l]:=s2;
end;
end;
if l>4 then
begin
inc(l);
s[l]:=s[3];
inc(l);
str(n*m,s[l]);
i:=4;
len1:=length(s[3]);
while s[i][1]<>'-' do
begin
len:=length(s[i])+cy[i];
ss:='';
for j:=len1 downto len+1 do ss:=ss+' ';
s[i]:=ss+s[i];
inc(i);
end;
end;
for i:=1 to l do writeln(s[i]);
end;
//  close(output);
end.