1)
var
a,b : integer;
begin
write('a = '); read(a);
write('b = '); read(b);
writeln('S = ', (((b+sqrt(sqr(b)-(4*a))) / 2 - (a*a*a*a*a))):0:4);
end.
Объяснение:
Считываем переменные, подставляем под формулу. В задаче не указали сколько знаков оставить после запятой, так что я оставил 4.
2)
var
x : integer;
begin
write('x = '); read(x);
writeln('B = ', (( ((x*x*x) + sqr(x) - (4*x) + 4 * sqrt(x+3)) / 42+(x*x*x*x*x*x*x))):0:4);
end.
Объяснение:
Считываем X, подставляем под формулу.
1)
var
a,b : integer;
begin
write('a = '); read(a);
write('b = '); read(b);
writeln('S = ', (((b+sqrt(sqr(b)-(4*a))) / 2 - (a*a*a*a*a))):0:4);
end.
2)
var
x : integer;
begin
write('x = '); read(x);
writeln('B = ', (( ((x*x*x) + sqr(x) - (4*x) + 4 * sqrt(x+3)) / 42+(x*x*x*x*x*x*x))):0:4);
end.
