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.

转载于:https://www.cnblogs.com/yachen/archive/2010/11/28/1890618.html