Ответы на вопрос:
pascalabc.net
begin
var(a,b,c) : = readreal3;
var d : = b*b-4*a*c;
if d< 0 then
print('нет действительных корней')
else if d=0 then
print('x1, x2 =', -b/2/a)
else
begin
d : =sqrt(d);
print('x1 =', (-b -d)/(2*a),
' x2 =', (-b +d)/(2*a))
end;
end.
Популярно: Информатика
-
yanaiweey07.02.2020 12:40
-
ilyapleshakov2929.08.2021 17:33
-
vlad204410.09.2022 16:29
-
cksenia11228.10.2021 14:46
-
123polinapolina10.03.2020 07:59
-
РенатаG07.01.2021 05:48
-
Arisha777715.02.2020 15:16
-
guest24611.03.2020 21:28
-
Анна66611118.11.2022 20:15
-
guldanaramazan04.09.2021 18:33