Написать программу для решения задач(Паскаль):
1)Вычислите значения выражения [tex] \frac{b+ \sqrt{ b^{2}+4ac} }{2a} +IbI[/tex]
2)Насти среднее арифметическое четырех чисел.
1)Вычислите значения выражения [tex] \frac{b+ \sqrt{ b^{2}+4ac} }{2a} +IbI[/tex]
2)Насти среднее арифметическое четырех чисел.
More Questions From This User See All
Answers & Comments
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.