Ответы на вопрос:
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.
Популярно: Другие предметы
-
dmitriytkach3004.08.2022 22:49
-
kravchenkomiss09.04.2021 23:22
-
nastya1210911.03.2021 13:48
-
alla07309.11.2022 03:14
-
forring017.08.2022 04:06
-
ni4ego26.12.2022 13:14
-
АленаКамарова11.08.2021 07:16
-
Your1sad1waifu26.08.2020 05:39
-
ЗейнабАхундзаде24.06.2022 14:22
-
vika2727270521.08.2021 09:08