Question

(код программы на ЯП Паскаль):
Пройдет ли колобок с талией L в квадратное окно со стороной А. Все исходные данные вводятся с клавиатуры.

Answer 1

$displaystyle L=pi D to D= frac{L}{pi} ; \ D textless A; quad frac{L}{pi} textless A to L textless pi A$

// PascalABC.NET 3.2, сборка 1325 от 19.10.2016
var
  L,A:real;
begin
  Writeln('Введите размер талии и длину стороны окна: ');
  Read(L,A);
  if L<Pi*A then Writeln('Пройдет')
  else Writeln('не пройдет')
end.