Dennnhhhickk

Untitled

Oct 30th, 2016
73
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 0.36 KB | None | 0 0
  1. program Project1;
  2.  
  3. {$APPTYPE CONSOLE}
  4.  
  5. uses
  6. SysUtils;
  7.  
  8. var
  9. a, b, x, c, d: int64; .
  10.  
  11. begin
  12. x:=0;
  13. readln(a,b,c,d);
  14.  
  15. if (a = 0) and (b = 0) then
  16. writeln('INF')
  17. else
  18. if (a = 0) or ((b mod a) <> 0) or(c * (-b div a) + d = 0) then
  19. writeln('NO')
  20. else
  21. writeln(-b div a);
  22.  
  23. readln;
  24. readln;
  25. end.
Advertisement
Add Comment
Please, Sign In to add comment