Program calk; uses crt; var a,b,c,d,x1,x2 : real; begin textcolor(red); gotoxy(10,5); write('вас калькулятор решать квадратные уравнения'); gotoxy(10,6); write('введите а='); readln(a); gotoxy(10,7); write('введите b='); readln(b); gotoxy(10,8); write('введите с='); readln(c); d: =b*b-4*a*c; readln(d) if d< 0 then begin gotoxy(10,9); textcolor(red); write('нет действительных корней') end else begin if d=0 then begin gotoxy(10,10); textcolor(red); x1: =(-b/2*a); write('уравнение имеет один корень и он равен: x1 =',x1: 2: 2,''); end else begin if d> 0 then begin x1: =(-b-sqrt(d))/(2*a); x2: =(-b+sqrt(d))/(2*a); write('уравнение имеет 2 корня и они равны: x1 =',x1: 2: 2,' ','x2=',x2: 2: 2) end; end. в чем

ника3931    3   11.03.2019 19:06    4