Найти длину окружности, описанной около квадрата со стороной х см. х-сторона, r=корень из х в квадрате + х в квадрате/2, l=2*пи*r, найти чему равна длина окружности при х=2.56789, и х=345.678 с точность до 3 знаков после запятой
Давай попробуем рассуждать логически. Если бы сад состоял из двух деревьев, то было бы два варианта садов: 100+99 и 100+101. Если бы досадили третье дерево, то каждый из предыдущих садов удвоил бы число вариантов: первый 100+99+98 и 100+99+100, и так же второй 100+101+100 и 100+101+102. Подмечаем закономерность: каждое добавляемое дерево удваивает количество вариантов. А сад из одного дерева имеет лишь один вариант.
Программу надо сформатировать и тогда её структура будет видна лучше. А чтобы понять, как идет выполнение, в нужных точках ставим промежуточную выдачу - это называется "трассировкой".
var s, k: integer; label met; begin s:=-12; k:=90; Writeln('s=',s,', k=',k); s:=s+10; Writeln('s=',s); met: Writeln('Метка met:'); k:=k+10; Write('k=',k); if k<200 then s:=50 else s:=s+k; Writeln(', s=',s); if k<200 then goto met; Writeln('Результат: s=',s) end.
длину окружности
L=2*пи*R
R=√(х^2+х^2/2)
L=2*пи*√(х^2+х^2/2)
подставим х
при х=2.56789
L=19.7607=19.761
при х=345.678
L=2660.09556=2660.096