Решить задачу на Паскале. Заданы площади круга S1 и квадрата S2. Определить поместится ли круг в квадрате. Задачу решить при а) S1=70, S2=36,74 б) S1=0,86, S2=0,64 Квадрат поместится в круге, если диаметр окружности меньше или равен стороне квадрата. Диагональ квадрата и диаметр окружности найти из площади фигур. Результат вывести на экран.

Предыдущий
вопрос Следующий
вопрос

program CircleInSquare;

var
S1, S2, dSquare, dCircle: real;

begin
//Первый случай: S1=70, S2=36,74
S1 := 70;
S2 := 36.74;

dSquare := sqrt(2 S2); //находим диагональ квадрата
dCircle := sqrt(S1 / 3.1416) 2; //находим диаметр окружности

if dCircle <= dSquare then
writeln('Круг помещается в квадрате')
else
writeln('Круг не помещается в квадрате');

//Второй случай: S1=0.86, S2=0.64
S1 := 0.86;
S2 := 0.64;

dSquare := sqrt(2 S2); //находим диагональ квадрата
dCircle := sqrt(S1 / 3.1416) 2; //находим диаметр окружности

if dCircle <= dSquare then
writeln('Круг помещается в квадрате')
else
writeln('Круг не помещается в квадрате');

end.