Ответы на вопрос:
Program q3; var: a,b,c,d,x1,x2: real; (вводим переменные) readln(a); readln(b); readln(c); (считываем переменные с клавиатуры) d: =b*b-4*a*c; (формула дискриминанта) if(d< 0) then writeln('нет решений'); (проверяем дикриминант меньше 0) if(d=0) then do begin x1: =-b/2*a; writeln(x1); end; if(d> 0) then do begin x1: =(-b+sqrt(d))/2*a; x2: =(-b-sqrt(d))/2*a; (находим корни) writeln(x1); writeln(x2); end; end.
Популярно: Информатика
-
MiliitVel122.04.2023 09:17
-
Folknesss1416.06.2022 05:23
-
Ровног09.11.2020 21:51
-
lychik111131.03.2021 13:51
-
ArtemyEvergreenIV20.10.2021 04:44
-
Даша200211111130.12.2021 06:56
-
thymbalovajulia26.02.2023 01:23
-
marat523017.01.2020 08:54
-
MatveyS00723.05.2023 17:25
-
licicha06.01.2023 01:16