)) паскаль. дана последовательность из 9 чисел. вычислить произведение положительных элементов последовательности.

Вот код на pascalabc. var b,o,i: integer; a: array[1..9] of integer; beginfor i: =1 to 9 do readln(a[i]); o: =1; for i: =1 to 9 do begin  if a[i]> 0 then   begin    b: =a[i];     o: =o*b;   end; end; writeln(o); end.p.s. последовательность надо вводить через enter. если хочешь через пробел измени 5 строчку кода на  read(a[i]);

Вверх и вниз по разным тропинкам: по каждой тропинке можно подняться и спуститься :   3*3 = 9 маршрутов вверх и вниз по разным тропинкам: тропинок 3, маршрутов по ним   2, всего 3*2 =6 маршрутов два маршрута: по первой поднялись, спустились по второй                             по первой поднялись, спустились по третьей ещё два:   по второй поднялись, спустились по первой                   по второй поднялись, спустились по третьей ещё  два: по третьей поднялись, спустились по первой                 по третьей  поднялись, спустились по второй

// pascalabc.net 3.1, сборка 1200 от 13.03.2016 begin   var x: =0.7;   var eps: =1e-4;   var a: =x*x/2;   var chx: =1+a;   var n: =1;   while a> =eps do begin       writeln('n=',n,'    ch(x)=',chx);       inc(n);       a: =a*x*x/((2*n)*(2*n-1));       chx: =chx+a       end;   writeln('');     writeln('n=',n,'    ch(x)=',chx) end. результат выполнения программы: n=1    ch(x)=1.245 n=2    ch(x)=1.25500416666667 n=3    ch(x)=1.25516756805556 n=4    ch(x)=1.25516899781771