Напишите в Turbo Pascal: b+√(b^2+4ac)/2a - a^3c+b^-2
Напишите в Turbo Pascal: b+√(b^2+4ac)/2a - a^3c+b^-2
Гость
Ответ(ы) на вопрос:
Гость Program Pr1; Uses Crt; var a,b,c: integer; y: real; begin clrscr; Writeln('введите a,b,c'); Readln(a,b,c); y=b+sqrt(b*b+4*a*c)/(2*a)-a*a*a*c+b*b-2; Writeln('Y=', y:5:2); Readln; End.
Не нашли ответ?
Похожие вопросы