Question

Calculati pentru primii n termeni:
a)1+3+5+7... şi 1•3•5•7...;
b)2+4+6+8... şi 2•4•6•8...;
Sa se elaboreze cate un program Pascal pentru fiecare subpunct
Va rog frumos imi trebuie urgent​

Answer 1

{ 1) }

program termeni_a;

var

n : integer;

a1 : integer;

a2 : integer;

procedure a;

var i : integer;

begin

 i := 1;

 a1 := 0;

 a2 := 1;

 while n <> 0 do

 begin

  a1 := a1 + i;

  a2 := a2 * i;

  n := n - 1;

  i := i + 2;

 end

end;

begin

readln(n);

a;

writeln(a1, ' ', a2);

readln;

end.

{ 2) }

program termeni_b;

var

n : integer;

a1 : integer;

a2 : integer;

procedure a;

var i : integer;

begin

 i := 2;

 a1 := 0;

 a2 := 1;

 while n <> 0 do

 begin

  a1 := a1 + i;

  a2 := a2 * i;

  n := n - 1;

  i := i + 2;

 end

end;

begin

readln(n);

a;

writeln(a1, ' ', a2);

readln;

end.