ПОЖАЛУЙСТА!!!!!! Определить фигуру с наибольшей площадью: квадрат со стороной a, равносторонний треугольник со стороной b, окружность с радиусом R. ПАСКАЛЬ
var a,b,r,s1,s2,s3:real; begin writeln('a, b, r:'); readln(a,b,r); s1:=a*a; s2:=b*b*sqrt(3)/4; s3:=pi*r*r; writeln('s1 = ',s1:4:2,' s2 = ',s2:4:2,' s3 = ',s3:4:2); if (s1>s2)and(s1>s3) then writeln('Квадрат имеет максимальную площадь = ',s1:4:2) else if (s2>s1)and(s2>s3) then writeln('Треугольник имеет максимальную площадь = ',s2:4:2) else writeln('Круг имеет максимальную площадь = ',s3:4:2); end.
Пример: a, b, r: 5 8 3 s1 = 25.00 s2 = 27.71 s3 = 28.27 Круг имеет максимальную площадь = 28.27
более месяца назад
Ваш ответ:
Вы можете из нескольких рисунков создать анимацию (или целый мультфильм!). Для этого нарисуйте несколько последовательных кадров
и нажмите кнопку Просмотр анимации.
