Advertisement
Guest User

Untitled

a guest
Nov 23rd, 2014
122
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
Pascal 0.47 KB | None | 0 0
  1. var fo,fi:text;
  2.     x,y,z:longint;
  3.     f : boolean;
  4.  
  5. begin
  6.   fi:=input;
  7.   fo:=output;
  8.   readln(fi,x,y,z);
  9.   if (x=y)
  10.   then begin
  11.     if (x=z)
  12.     then f:=true
  13.     else f:=false;
  14.   end else begin
  15.     if (z-x) mod (y-x) = 0
  16.     then begin
  17.       if (z-x) div (y-x) >= 0
  18.       then f:=true
  19.       else f:=false;
  20.     end else begin
  21.       f:=false;
  22.     end;
  23.   end;
  24.  
  25.   if f
  26.   then writeln(fo,'Yes')
  27.   else writeln(fo,'No');
  28.  
  29.   close(fi);
  30.   close(fo);
  31. end.
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement