Помогите пожалуйста))0) даны радиус круга и площадь квадрата. определить поместится ли...

Question

Помогите пожалуйста))0) даны радиус круга и площадь квадрата. определить поместится ли круг в квадрате

Comments

Паскаль нужен?

---

да

---

ПОМОГ?

---

да

Answer 1

Var  r, s, a: real;
begin 
readln(s, r); 
a := sqrt(s); 
if 2 * r > a then writeln('НЕПОМЕСТИТСЯ')
else writeln('ПОМЕСТИТЬСЯ')
end.
лучший пж