Напишите программу, которая вычисляет сумму первых n членов ряда . значение n вводится с клавиатуры.

1) program gt; var s,n,a,i: integer; begin read(n) s: =0; randomize; for i: =1 to n do begin a: =random(100); s: =s+a; end; writeln(s); end. 2) можно сделать с файлом while not do begin ); s: =s+a; end; ); ; end.

Program fib; var a: array [0..100] of integer;       i,n: integer;       begin               a[1]: =1;               a[2]: =1;               for i: =3 to 100 do               begin               a[i]: =a[i-1]+a[i-2];                 write('a[',i,']  =  ',a[i],'   ');                 end;       end.         

Ом     б2 >                 переплывают   направо б1 и б2 о м     <   б2             б2 остается на правом берегу, б1 назад м   б1   >   б2         б1 остается на левом берегу, переплывает один о м б1     <     о           о остается на правом берегу, б2 назад   и т.д. м           >   o m         < о   б2                 б1 > o б2               м б1 о б2