Ответы на вопрос:
PascalABC.NET
begin
var (a, b, c) := ReadReal3('Введите a, b, c:');
if a = 0 then exit;
var D := sqr(b) - 4 * a * c;
println('Дискриминант:',D);
if D > 0 then begin
print('x1 =',(-b+sqrt(D))/(2*a));
print('x2 =',(-b-sqrt(D))/(2*a));
end
else if D = 0 then
print('x =', -b / (2 * a))
else if D < 0 then
print('Корней нет');
end.
Популярно: Информатика
-
JIucenok13.02.2023 00:15
-
mxitaryan7719.11.2020 11:38
-
Andy0108.01.2022 03:48
-
Лубаша30.03.2020 22:58
-
Jessicacoen13.04.2022 13:46
-
497701.05.2022 11:41
-
anyakoi06.11.2020 15:05
-
ivanovaa75011.04.2021 23:39
-
85369217.10.2021 02:56
-
vikap88813.02.2022 22:35