Question

Cоставить программу в паскале определите пройдет ли колобок с длиной "талии" L в квадратное окно со стороной а

Answer 1

Радиус вписанной окружности в квадрат равен половине стороны квадрата.
"Длинна талии" - это длинна окружности. Она равна  2πr.
Значит найдём радиус "колобка" и сравним его с размерами окна:

var L,a:real;
begin
    writeln('Введи L и а через пробел');
    readln(L,a);
    if (L/(2*pi))<(a/2) then writeln('Пройдёт: ширина колобка ', L/(2*pi)*2, ', ширина окна ', a) else writeln('Не пройдёт: ширина колобка ', L/(2*pi)*2, ', ширина окна ', a);
end.