написать программу решения квадратного уравнения ax^2+bx+c=0 в паскале,помогите плиз!!!
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.
В какой оболочке земли живёт большинство живых организмов?
Из каких неживых частей состоит экосистема
На какие расы делятся население земли
Определение статуса военнослужащего (краткий ответ!!)
Проведи следущие наблюдения в классе: один учащийся спокойно сидит за партой, слушая объяснения учителя; второй записывает план объяснения в тетради ; третий ученик вышел к доске отвечать на вопрос учителя. назови движущиеся тела. относительно каких других тел они движутся ?
Посетители, находящиеся в группе Гости, не могут оставлять комментарии к данной публикации.