ac1018.pas

来自「同济大学 Online在线题库 AC源代码合集 程序设计竞赛必看资料」· PAS 代码 · 共 19 行

{A rubbish prob... much too unclear statement}
program tju1018;
var
  a,b:byte;
begin
  repeat
    read(a,b);
    writeln(a:7);
    writeln('*',b:6);
    writeln('-------');
    if b>9 then begin
      writeln(b mod 10*a:7);
      writeln(b div 10*a:6);
      writeln('-------');
    end;
    writeln(a*b:7);
  until seekeof;
end.