fork(2) download
copy 
  1. var
  2. a,b,c:integer;
  3. D,x1,x2:real;
  4. begin
  5. writeln('введите a,b,c ');
  6. readln(a,b,c);
  7. D:=(b*b)-4*a*c;
  8. if(D>0) then begin
  9. x1:= (-b+sqrt(D))/(2*a);
  10. x2:= (-b-sqrt(D))/(2*a);
  11. writeln('Корни уравнения = ', x1 : 0 : 3, ' ', x2 : 0 : 3)
  12. end
  13. else if D = 0 then begin
  14. x1 := -b / (2*a);
  15. WriteLn ('Корень ур-ия = ', x1 : 0 : 3)
  16. end
  17. else
  18. writeln('корней нет ');
  19. end.
  20.  
Success #stdin #stdout 0s 276KB
comments (?)
stdin
copy 
2 -22 60
stdout
copy 
введите a,b,c 
Корни уравнения = 6.000 5.000
https://ideone.com/J12sDn
language:
Pascal (fpc 3.0.4)
created:
11 years ago
visibility:
secret

Share or Embed source code

Discover > Sphere Engine API

The brand new service which powers Ideone!

Discover > IDE Widget

Widget for compiling and running the source code in a web browser!