Advertisement
JolyJDIA

Untitled

May 7th, 2020
76
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
Pascal 0.28 KB | None | 0 0
  1. program zadaha;
  2.  
  3. var
  4.   txt : text;
  5.   d, a, b, c : real;
  6.  
  7. begin
  8.   assign(txt, 'kvur.txt');
  9.   reset(txt);
  10.   readln(txt, a, b, c);
  11.   d := b*b-4*a*c;
  12.   assign(txt, 'korni.txt');
  13.   rewrite(txt);
  14.   write(txt, (-b-sqrt(d))/(2*a), ' ', (-b+sqrt(d))/(2*a));
  15.   txt.Close;
  16. end.
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement