Question

Код програми для обчислення площі та довжини кола радіусом R, в лазарус

Answer 1

Ответ:

program Circle;

{$APPTYPE CONSOLE}

uses

 SysUtils, Math;

var

 R, Area, Circumference: Double;

begin

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

 ReadLn(R);

 

 Area := Pi * Power(R, 2);

 Circumference := 2 * Pi * R;

 

 WriteLn('Area: ', Area:0:2);

 WriteLn('Circumference: ', Circumference:0:2);

 

 ReadLn;

end.