Написать программу для решения задач(Паскаль):1)Вычислите значения выражения 2)Насти...

Question

Написать программу для решения задач(Паскаль):
1)Вычислите значения выражения
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<br>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.