Ответы на вопрос:
Var a,b,c,x1,x2,d: real; begin write('введите a='); readln(a); write('введите b='); readln(b); write('введите c='); readln(c); d: =b*b-4*a*c; if d< 0 then begin writeln('нет корней'); end; if d=0 then begin writeln('x1=',-b/(2*a)) end; if d> 0 then begin x1: =(-b-sqrt(d))/(2*a); x2: =(-b+sqrt(d))/(2*a); writeln('x1=',x1); writeln('x2=',x2); end; end.
Популярно: Информатика
-
бракус1112.11.2022 05:48
-
SonyaYT03.05.2022 11:14
-
veronikasabrin28.03.2021 12:03
-
Диана240403.06.2020 06:08
-
Дженнa08.09.2020 23:52
-
tsisarmaria24.06.2022 22:16
-
Sem500011.07.2022 17:14
-
rotorjec0820.09.2020 09:04
-
sasha2005k117.07.2022 20:19
-
SofiaAM24.09.2022 21:48