+10
4 года назад
Информатика
10 - 11 классы
var
b,c,a,s:real;
begin
writeln('введите А');
readln(a);
writeln('введите b');
readln(b);
writeln('введите c');
readln(c);
s:=(b+sqrt(b*b+4*a*c))/(2*a)-a*a*a*c+b*b;
writeln(s)
end.
var
b,c,a,s:real;
begin
writeln('введите А');
readln(a);
writeln('введите b');
readln(b);
writeln('введите c');
readln(c);
s:=(b+sqrt(b*b+4*a*c))/(2*a)-a*a*a*c+b*b;
writeln(s)
end.