Я мог ошибиться в формуле. Она в цикле, перепроверь.
<span>да мы можем увидеть какие есть деревья ,животные и научиться различать их))</span>
Uses Drawman;
var a,i:integer;
procedure square(a:integer);
begin
pendown;
onvector(a,0);
onvector(0,-a);
onvector(-a,0);
onvector(0,a);
end;
begin
Task('pp4');
ToPoint(7,17);
pendown;
a:=15;
for i:=1 to 8 do
begin
square(a);
penup;
onvector(1,-1);
a:=a-2;
end;
ToPoint(0,0);
<span>end. </span>
Слева от троеточия - последовательность (не помню какая)
Справа от троеточия - формулы вычисления этой последовательности, следовательно тебе надо разобрать только формулу.
Я попробую тебе объяснить, а ты уже попробуй сделать схему (не помню, как схема строится):
m - постоянно увеличивается на +1, так и получается последовательность (например, m=2 -> x^3/3 и т.д.).
Можно воспользоваться циклом, а в цикле прописать то, что m увеличивается на +1 -> m=m+1, и прописать формулу (x^2*m-1)/(2*m-1)
Вот, в принципе, и всё. Надеюсь разберёшься дальше
6папок т.к в 1 папке содержится 2-3 бита