Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- program task;
- var
- reader : text;
- a, b, c : real;
- begin
- assign(reader, 'kvur.txt');
- reset(reader);
- readln(reader, a, b, c);
- var d := b*b-4*a*c;
- c := (-b-sqrt(d))/(2*a);
- a := (-b+sqrt(d))/(2*a);
- assign(reader, 'korni.txt');
- rewrite(reader);
- write('x1 = '+c+' x2 = ' +a);
- write(reader, c + ' ' + a);
- reader.Close;
- end.
Advertisement
Add Comment
Please, Sign In to add comment