Ответы на вопрос:
var p:string;
a,b,c,d,x1,x2:real;
begin
p:=('корней нет');
writeln('введите a');
readln(a);
writeln('введите b');
readln(b);
writeln('введите c');
readln(c);
d:=b*b-4*a*c;
if d<0 then writeln(p) else
begin
x1:=(-b+sqrt(d))/(2*a);
x2:=(-b-sqrt(d))/(2*a);
writeln('x1=',x1,' x2=',x2);
end;
end.
Популярно: Информатика
-
гулнора26.06.2020 07:56
-
arseniyrom20p08lxy01.06.2021 19:56
-
HaosG15.11.2020 07:51
-
Маргарин1105.07.2021 02:09
-
SuperLexa55523.03.2022 23:47
-
milimili9521.03.2021 07:42
-
Мганвплмппррнвпол10.05.2020 04:07
-
Алина111657728.01.2023 22:38
-
MishkaBra07.09.2022 18:16
-
lisya77801.11.2020 17:17