Опубликовано 11.06.2017 по предмету Информатика от Гость >> <<

Вычислить сумму и произведение N членов арифметической прогрессии 2, 5, 8, 11,…

Ответ оставил Гость

program al; 
        var n,i:integer; 
        k,b,a1,p:integer;
                     s:real; 
         begin 
         writeln(n=); 
        readln    (n); 
                   a1:=2;   
      b:=3;
   p := 1;
   s:=0;
      for i:=1 to n do
 begin
     p := p * a1; 
    a1 := a1 + b;
   end;
   for i:= 1 to n do
begin 
 k:=  2*a1+b*(n-1); 
  s:=(k/2)*n; 
          end;
  WriteLn(proizvedenie: ,p , summa=,s);
  Readln;
end.