Ақпараттық қауіпсіздіктің бұзылуына әсер ету мүмкін табиғи қауіп-қатер

272

371

Посмотреть ответы 1

Ответы на вопрос:

XXL18

Информатика

4,6(71 оценок)

Program kv; varx1,x2,x,d,a,b,c: real; begin writeln('квадратное уравнение должно выглядеть так: ax^2+bx+c'); writeln('write a'); readln(a); writeln('write b'); readln(b); writeln('write c'); readln(c); d: =sqr(b)-4*a*c; if (d> 0) then begin x1: =(-b+sqrt(d))/2*a; x2: =(-b-sqrt(d))/2*a; writeln('x1= ',x1: 8: 3,' x2= ',x2: 8: 3); end; if (d< 0) then begin writeln('нет корней'); end else x: =x2; x2: =-b/2*a; writeln('x= ',x2); end.