Ответы на вопрос:
program yravnenie;
var a,b,c,d,x1,x2,p,q: real; begin repeat write('a= '); readln(a); if a=0 then writeln('error: a=0. enter another value'); until a< > 0; write('b= '); readln(b); write('c= '); readln(c); p: =b/a; q: =c/a; d: =sqr(p/2)-q; if d> 0 then begin writeln('x1 = ',-p/2-sqrt(d): 0: 5); writeln('x2 = ',-p/2+sqrt(d): 0: 5); end else if d=0 then writeln('x1 = x2 = ',-p/2: 0: 5) else begin writeln('x1 = ',-p/2: 0: 5,'-i*',sqrt(-d): 0: 5); writeln('x2 = ',-p/2: 0: 5,'+i*',sqrt(-d): 0: 5); end; readln; end.
Популярно: Информатика
-
nastyarapuntseozgwc223.03.2022 22:43
-
Сонякака33214.08.2022 03:51
-
Dan1la120.03.2020 14:42
-
1Anabel118.09.2020 04:51
-
ange417.02.2021 21:31
-
marinasok2301.05.2020 12:25
-
регинамаг22.10.2022 10:41
-
Дидог24.11.2022 10:29
-
уляотличница20.07.2022 15:09
-
artem87609.06.2020 15:20