Question

1)Составить алгоритм для определения большего из трех чисел.
2)Даны радиус и сторона квадрата. С помощью алгоритма определите, у какой фигуры площадь больше
3)Составить алгоритм для решения квадратного уравнения $a x^{2} + bx + c = 0$ПОМОГИТЕ

Answer 1

1.
var a,b,c:longint;
begin
read(a,b,c);
if (a>=b) and (a>=c) then writeln(a) else
if (b>=a) and (b>=c) then writeln(b) else writeln(c);
end.
2.
var r,a:longint;
begin
read(r,a);
if pi*r*r>a*a then
writeln('Круг') else
if pi*r*r=a*a then
writeln('Равны') else
writeln('Квадрат');
end.
3.
var a,b,c,D:real;
begin
read(a,b,c);
D:=b*b-4*a*c;
writeln((-1*b+sqrt(D))/2*a);
writeln((-1*b-sqrt(D))/2*a);
end.