1)Составить алгоритм для определения большего из трех чисел.

+ 0 -

Naduha2853

27 дек. 2016 г., 8:32:30 (7 лет назад)

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.