Напишите в Turbo Pascal: b+√ (b^2+4ac) / 2a - a^3c+b^-2

Question

Информатика

Федосья

26 декабря, 07:18

Напишите в Turbo Pascal: b+√ (b^2+4ac) / 2a - a^3c+b^-2

+1

Ответы (1)

Знаете ответ?

Лана · Answer 1

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.