Известны длина стороны квадрата и радиус окружности.Определить поместиться ли квадрат в окружность. Как составить программу в паскаль?

1

Ответы и объяснения

2013-09-22T20:36:27+04:00
Var a,r:real;
begin
  write ('Storona kvadrata: ');
  readln (a);
  write ('Radius: ');
  readln (r);
  if (a*sqrt(2))<=2*r then writeln ('YES') else writeln ('NO');
  readln;
end.