Кузнечик сидит на берегу болота. он хочет перебраться на другой берег. в болоте цепочкой расположено шесть кочек. кузнечик может прыгать тремя способами: на следующую кочку, через кочку, через две кочки. сколько существует различных способов, которыми кузнечик может перебраться на другой берег болота? как получили?

Кузнечик сидит в точке 0. будем считать, что количество способов как попасть в точку ноль - 1.  у нас всего 6 кочек, 6   - конечная. мы перемещаемся либо на последующую (+1), либо через одну (+2), либо через две (+3). то есть если мы были на кочке один и прыгнули через две кочки, то попадем в кочку 4 (1 + 3).  начнём считать. 0 - мы на первом берегу.  наши кочки: 1, 2, 3, 4, 5 и 6  обозначены слева. 7 этапом мы прыгнем на другой берег. 0: 1 способ 1: [0] = 1 сп. 2: [0,1] = 1 + 1 = 2 сп.  3: [0,1, 2] = 1 + 1 + 2 = 4 сп. 4: [1, 2, 3] = 1 + 2 + 4 = 7 сп. 5: [2, 3, 4] = 2 + 4 + 7 = 13 сп. 6: [3, 4, 5] = 4 + 7 + 13   = 24 сп. 7: [4, 5, 6] = 7 + 13 + 24 = 44 сп.  всего существует 44 способа как перебрать на другой берег болота. p.s. в квадратных скобка [] обозначены индексы из каких точек мы можем попасть в эту точку. достаточно сложить количество путей тех точек и мы получим количество путей для данной точки. 

Program cgt; var x1,y1,x2,a,y2,b,c,x3,y3: real; procedure ioi(x1,y1,x2,y2: real; var a: real); begin a: =sqrt((x1-x2)*(x1-x2)+(y1-y2)*(y1-y2)); end; begin read(x1,x2,y1,y2,x3,y3); ioi(x1,y1,x2,y2,a); ioi(x1,y1,x3,y3,b); ioi(x3,y3,x2,y2,c); if(a> =b)and(a> =c)then writeln('первая и вторая точка ',a) else if(b> =a)and(b> =c)then writeln('первая и третая точка ',b) else if(c> =b)and(c> =a)then writeln('третая и вторая точка ',c); end.2)program cgt; var z,x,y: real; function ioi(x: real): real; beginif(x=0)then ioi: =0; if(x< 0)then ioi: =-1; if(x> 0)then ioi: =1; end; beginread(x,y); z: =(ioi(x)+ioi(y))*ioi(x+y); writeln(z); end.

1,2,3,4) program gt; var a: array[1..100]of integer; n,i,w,r,q,max: integer; begin read(n); w: =0; r: =0; q: =0; for i: =1 to n do begin read(a[i]); if(a[i]< 0)then w: =w+1; if(a[i]> 0)then r: =r+1; if(a[i]=a[1])then q: =q+1; end; max: =a[1]; for i: =2 to n do if(a[i]> max)then max: =a[i]; writeln(' количество отрицательных элементов в массиве=',w); writeln(' количество положительных элементов в массиве=',r); writeln(' количество элементов в массиве равных a[1]=',q); writeln(' максимальный элемент массива=',max); end.