Advertisement
Dennnhhhickk

Untitled

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