Дан круг с радиусом - r и квадрат со стороной а. Определить поместиться ли круг в квадрат...

Question

Дан круг с радиусом - r и квадрат со стороной а. Определить поместиться ли круг в квадрат или квадрат в круг. Составить программу в Паскаль. Помогите пожалуйста!!!

Answer 1

Диагональ квадрата равна стороне на корень из двух.

В Pascal корень - это sqrt (x)

program one;

var r, a : integer;

begin

   read (r, a);

   if a * sqrt(2)

   begin

       write ('Квадрат помещается в окружности');

   end;

   if r < (a / 2) then

   begin

       write ('Окружность помещается в квадрате');

   end;

end.