Ответы на вопрос:
Var a,b,c,d,x1,x2: double; begin write('введите коэффициенты квадратного уравнения а в с: '); read(a,b,c); if a=0 then writeln('а не может равняться нулю: уравнение не будет квадратным') else begin d: =sqr(b)-4*a*c; if d< 0 then writeln('нет корней') else if d=0 then writeln('x=',-b/(2*a)) else begin d: =sqrt(d); x1: =(-b-d)/(2*a); x2: =(-b+d)/(2*a); writeln('x1=',x1,', x2=',x2) end end end. тестовое решение: введите коэффициенты квадратного уравнения а в с: 2 -5 3 x1=1, x2=1.5
Популярно: Информатика
-
Besta6903.03.2023 05:17
-
ДашаЕ108.02.2020 06:57
-
Zhenyarishka103.02.2023 06:13
-
байгинат125.09.2020 17:30
-
paniann1717.07.2021 00:05
-
zaharsteam22.01.2020 05:34
-
i01n11.07.2020 11:45
-
ashotik00722.06.2020 23:35
-
Tanecka250106.01.2023 08:40
-
mamatvoeymamy29.06.2020 19:08