Question

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

Answer 1

Var s1,s2,r,a:real;
begin
read(s1,s2);
r:=sqrt(s1/pi);
a:=sqrt(s2);
if a*sqrt(2)/2<=r then writeln('Поместится')
else writeln('Не поместится');
end.

Вроде так, но проверьте на своих тестах