Информатика, опубликовано 07.04.2019 23:30
Написать программу паскаль: y=x^2+b^2 заранее ))
Ответ оставил: Гость
Var a,b,c,d,x: real; begin writeln('введите a,b,c'); readln( a,b,c ); d: =sqr(b)-4*a*c; if d< 0 then begin writeln('действительных корней нет'); end else if d=0 then begin x: =(-b)/2*a; writeln('корень уравнения: ',x); end else begin x: =(-b+sqrt(d))/2*a; writeln('1-й корень уравнения: ',x); x: =(-b-sqrt(d))/2*a; writeln('2-й корень уравнения: ',x); end end.
Информатика, опубликовано 09.01.2019 16:01
Информатика, опубликовано 09.01.2019 16:01
Информатика, опубликовано 09.01.2019 16:01
Информатика, опубликовано 09.01.2019 16:01