Question

Написать программу для решения задач(Паскаль):
1)Вычислите значения выражения $frac{b+ sqrt{ b^{2}+4ac} }{2a} +IbI$
2)Насти среднее арифметическое четырех чисел.

Answer 1

program gt;
var a,b,c,y:real;
begin
readln(a,b,c);
if(b*b+4*a*c<0)then writeln('это невозможно')else begin
y:=(b+sqrt(b*b+4*a*c))/(2*a)+abs(B);
writeln(y);
end;
end.
2)
program gt2;
var a,b,c,d,e:real;
begin
readln(a,b,c,d);
e:=(a+b+c+d)/4;
writeln(E);
end.