Очень срочно!!! Составьте программу решения квадратного уравнения, если заданы его...

Question

Очень срочно!!! Составьте программу решения квадратного уравнения, если заданы его коэффициенты в условном операторе (If...then...else...)

Answer 1

Program kvadrurav;
var
a:integer;
b:integer;
c:integer;
d:integer;
begin
Writeln('введите число а');
Readln(a);
Writeln('введите число b')
;Readln(b);
Writeln('введите число c');
Readln(c);
d:=b*b-(4*a*c);
if d>0 then  Writeln('x1=',(-b-Sqrt(D))/(2*a),' ','x2=',((-b+Sqrt(D))/(2*a))) ;
 if d=0 then          
Writeln('x1=',-b/(2*a))     
else     
Writeln('нет корней');

Comments

так?

---

если бы знала, не спрашивала бы, откуда я знаю так или нет, но я там уже по своему ответила, 3 как-нибудь поставит,