Диагональ квадрата равна стороне на корень из двух.
В Pascal корень - это sqrt (x)
program one;
var r, a : integer;
begin
read (r, a);
if a * sqrt(2) <= r then
write ('Квадрат помещается в окружности');
end;
if r < (a / 2) then
write ('Окружность помещается в квадрате');
end.
Диагональ квадрата равна стороне на корень из двух.
В Pascal корень - это sqrt (x)
program one;
var r, a : integer;
begin
read (r, a);
if a * sqrt(2) <= r then
begin
write ('Квадрат помещается в окружности');
end;
if r < (a / 2) then
begin
write ('Окружность помещается в квадрате');
end;
end.