Question

Дано радіус кола і сторона квадрата (дійсні числа) У якої фігури площа більше? В програмі Lazarus!!!!

Answer 1

Відповідь:

program AreaComparison;

var

 radius, side, circleArea, squareArea: real;

begin

 write('Enter the radius of the circle: ');

 readln(radius); // зчитуємо радіус кола

 

 write('Enter the side of the square: ');

 readln(side); // зчитуємо сторону квадрата

 

 circleArea := Pi * radius * radius; // обчислюємо площу кола

 squareArea := side * side; // обчислюємо площу квадрата

 

 if circleArea > squareArea then

   writeln('The area of the circle is greater')

 else if squareArea > circleArea then

   writeln('The area of the square is greater')

 else

   writeln('The areas are equal');

end.