Question

Вычислите для первых N элементов:
a) 1+3+5+7+... и 1*3*5*7*...;
b)2+4+6+8+... и 2*4*6*8*...;
c)3+6+9+12+... и 3*6*9*12*...;
d)4+8+12+16... и 4*8*12*16*...;
Например: При n=3 имеем 1+3+5=9; 1*3*5=15.
Задачу надо решить с оператором for, для Pascal 7.0.

Answer 1

{$N+}
uses Crt;

procedure L(n,first,step:integer);
var
  i,s,current:integer;
  p:double;
begin
  p:=1;
  s:=0;
  current:=first;
  for i:=1 to n do begin
    s:=s+current;
    p:=p*current;
    Write(current,',');
    current:=current+step
    end;
  Writeln(' : S=',s,', П=',p)
end;

var
  n:integer;
begin
  ClrScr;
  Write('n=');
  Read(n);
  L(n,1,2);
  L(n,2,2);
  L(n,3,3);
  L(n,4,4);
  ReadKey
end.

Answer 2

Пожалуйста