Tyvj-Begin P1030 Begin1 - Unit6 - 幼稚的等式

描述 Description

现在,我们有一个用卡片组成的等式(卡片仅仅是数字和=号)
虽然是等式 但是它却是错误的.....
后来你觉得,
似乎在这个等式左侧的某个地方添上一个加号
就可以使等式成立...
但是,,等到你要将之付诸行动的时候,,
你却不懂得怎么做..
所以你决定求助于万能的计算机...

输入格式 Input Format

一行,一个等式
保证每个数字不会超过maxlongint

输出格式 Output Format

一行,
如果可以成功使等式成立,
就输出成立的等式,
否则输出"Impossible!"(不含引号)

 

样例输入 Sample Input

11=2

样例输出 Sample Output

1+1=2

时间限制 Time Limitation

1s

注释 Hint

[关于描述里的彩色标注]
是为了防止某些人觉得这道题是超级BT题所以特别标注出来的..

 

 

一开始忘掉Impossible的情况了。。写程序用了10分钟,检查用了10分钟。。囧rz。。

 

program b1030;

 var

  s,a,b,c:string;

  p,i,x,y,z,l:longint;

 begin

  readln (s);

  l := length(s);

  p:=pos('=',s);

  c:=copy(s,p+1,l-p);

  val(c,z);

  for i := 1 to p-1 do

   begin

    a:=copy(s,1,i);

    b:=copy(s,i+1,p-1-i);

    val(a,x);

    val(b,y);

    if x+y=z then

     begin

      writeln(x,'+',y,'=',z);

      exit;

     end;

   end;

  writeln ('Impossible!');

 end.

你可能感兴趣的:(it)