Хто може розміщувати інформацію на сайтах у мережі Інтернет?

268

294

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

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

natalyabelozer3

Информатика

4,8(93 оценок)

Працівники торговельних компаній. Люди, які допомагають советами іншим

linovaya

Информатика

4,5(49 оценок)

Var a, b, c, d, x, y: real; begin readln(a, b, c); {ax^4 + bx^2 + c = 0} if a = 0 then writeln('non-bisquare') else begin d : = b * b - 4 * a * c; if d < 0 then writeln('no solutions') else begin if d = 0 then begin x : = -b / 2 / a; if x < 0 then writeln('no solutions') else writeln('2 solutions: ', sqrt(x), ' ', -sqrt(x)); end else begin x : = (-b + sqrt(d)) / 2 / a; y : = (-b - sqrt(d)) / 2 / a; if x < 0 then writeln('no solutions'); if x = 0 then writeln('1 solution: 0'); if (x > 0) and (y < 0) then writeln('2 solutions: ', sqrt(x): 0: 3, ' ', -sqrt(x): 0: 3); if (x > 0) and (y = 0) then writeln('3 solutions: ', sqrt(x): 0: 3, ' ', -sqrt(x): 0: 3, ' 0'); if y > 0 then writeln('4 solutions: ', sqrt(x): 0: 3, ' ', -sqrt(x): 0: 3, ' ', sqrt(y): 0: 3, ' ', -sqrt(y): 0: 3); end; end; end; end.