Составьте блок схему и дано для программы uses crt; var a,b,c,d,x1,x2: real; begin {вводим значения a, b и c} clrscr; write('wwedite a: '); readln(a); write('wwedite b: '); readln(b); write('wwedite c: '); readln(c); {вычисляем дискриминант} d: = b*b - 4*a*c; {если дискриминант больше 0, то вычисляем корни и выводим на экран} if d > 0 then begin x1: = (b - sqrt(d))/(2*a); x2: = (-b - sqrt(d))/(2*a); writeln('x1 = ',x1: 0: 4); writeln('x2 = ',x2: 0: 4); end; {если дискриминант равен 0, то вычисляем один корень и выводим на экран} if d = 0 then begin x1: = -(b/(2*a)); writeln('koren = ',x1: 0: 4); end; {если дискриминант меньше 0, то выводим сообщение} if d < 0 then begin writeln('korney net'); end; readln; end.

antonovakate2006    1   17.09.2019 05:30    0