Question

Программа 15. Определить, поместится ли квадрат площади P в круг площади S или круг поместится в квадрат, или они не поместятся друг в друга (центры круга и квадрата находятся в одной точке). Ответ вывести на экран.

Answer 1

15) var S, P: integer;
a,r: real;
begin
a := sqrt(P);
r := sqrt(S div 3.14);
if (r * 2 <= a) then writeln("krug v kvadrate");
else if (r * 2 >= a * sqrt(2)) then writeln("kvadrat v kruge");
else writeln("ne pomeschayutsya drug v druga");
end.