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 получить ответ ему нужно.