Question

Задача в программе Pascal :
Ввести стороны прямоугольника
a и b
a , b =
r =
Может ли данный прямоугольник быть вписанным в данную окружность ?

Answer 1

не может так как грани (угловые) части прямоугольника будут выступать за окружность

Answer 2

var a,b,r: real;

begin

write('Введите стороны прямоугольника: ');

readln(a,b);

write ('Введите радиус окружности: ');

readln(r);

if r=sqrt(a*a+b*b)/2 then writeln ('Данный прямоугольник может быть вписанным в данную окружность')

else writeln('Данный прямоугольник не может быть вписанным в данную окружность')

end.