Даны площадь S1 круга и площадь S2 квадрата обусловьте поместиться ли

Ответ:

program raf105;

const

 Pi = 3.14;

var

 s1,s2,d,a: real;

begin

 write('Введите площадь круга: ');

 readln(s1);

 write('Введите площадь квадрата: ');

 readln(s2);

 d:= 2 * sqrt(s1 / Pi);

 a:= sqrt(s2);

 if d gt; a

   then writeln('Круг не поместится в квадрат')

   else writeln('Круг поместится в квадрат');

end.

Разъяснение:

Нам необходимо вычислить поперечник круга и ширину квадрата. Если диаметр круга не больше ширины квадрата, то круг поместится.