Program Dr; Var a,b,c,D,x1,x2:Real; Begin D:=b*b-4*a*c; Read(a,b,c); if D<0 Then Writeln (‘корней нет’) else if D=0 then begin x:=-b/(2*a):Writeln(x); end; else begin…

Наш друг, Oleg Woronoff написал новый вопрос в UNC Clinic.

 

Вопрос заключается в том: Program Dr; Var a,b,c,D,x1,x2:Real; Begin D:=b*b-4*a*c; Read(a,b,c); if D<0 Then Writeln (‘корней нет’) else if D=0 then begin x:=-b/(2*a):Writeln(x); end; else begin…

Program Dr; Var a,b,c,D,x1,x2:Real; Begin D:=b*b-4*a*c; Read(a,b,c); if D<0 Then Writeln ('корней нет') else if D=0 then begin x:=-b/(2*a):Writeln(x); end; else begin...

  Обсуждение и ответы

Пожалуйста, прочитайте обсуждение и ответы на вопросы Program Dr; Var a,b,c,D,x1,x2:Real; Begin D:=b*b-4*a*c; Read(a,b,c); if D<0 Then Writeln (‘корней нет’) else if D=0 then begin x:=-b/(2*a):Writeln(x); end; else begin… ниже. Оставшиеся без ответа вопросы будут в ближайшее время получить обзор и обсуждение других посетителей.

Вы также можете участвовать ответить или ответить на вопрос "Program Dr; Var a,b,c,D,x1,x2:Real; Begin D:=b*b-4*a*c; Read(a,b,c); if D<0 Then Writeln (‘корней нет’) else if D=0 then begin x:=-b/(2*a):Writeln(x); end; else begin…". Не бойтесь делиться, даже если это все-таки не так. В ClassRU.com, мы учимся друг у друга и обеспечивают обратную связь друг с другом.

Предоставляя ответы или ответы на вопросы Program Dr; Var a,b,c,D,x1,x2:Real; Begin D:=b*b-4*a*c; Read(a,b,c); if D<0 Then Writeln (‘корней нет’) else if D=0 then begin x:=-b/(2*a):Writeln(x); end; else begin…, Вы помогли Oleg Woronoff получить ответ ему нужно.