Ответы на вопрос:
var a,b,c,d,x1,x2: real; beginreadln(a,b,c); d: =b*b-4*a*c; if d< 0 then writeln('только комплексные корни')else
begin
d: =sqrt(d);
x1: =(-b+d)/(2*a); x2: =(-b-d)/(2*a); writeln('x1=',x1); writeln('x2=',x2); end; end.
Популярно: Информатика
-
artemka2200a24.10.2020 12:22
-
saralis03.04.2021 20:55
-
Аолвлвьвтадвлвл06.04.2020 00:20
-
yulyaahunova102.05.2022 18:52
-
Aminka55511213.03.2020 01:20
-
Daney21315.11.2021 10:33
-
АринаДаутова17.09.2022 15:36
-
vladazheleznova0616.04.2020 20:52
-
Dinomid9330.08.2021 21:39
-
gobon133711.05.2023 16:36