Question

Să se alcătuiască secvenţa de program care calculează suma şi produsul numerelor pare din intervalul 2..34. ( Cu FOR)


Să se alcătuiască un program care va calcula suma S=1/2 1/4 1/6 ... 1/2n (Cu WHILE)



Program PASCAL

Answer 1

program brainly;

var n, i, s1:integer;

s2:real;

p:double;

begin

 s1:=0;

 p:=1;

 for i:=2 to 34 do begin

 

 if(i mod 2=0) then begin

 s1:=s1+i;

 p:=p*i;

 end;

 end;

 s2:=1;

 Write('Dati n:'); readln(n);

 Write('S=',s2:2:2,'+');

 i:=2;

 

 while(i<>n+1) do begin

 s2:=s2+(1/(i*2));

 if i=n then

 begin

 Write('1/',i*2);

 end

 else begin

 Write('1/',i*2, '+');

 end;

 i:=i+1;

 end;

 Writeln();

 Writeln('S=',s2:2:2);

 Writeln('Suma numerelor pare=',s1);

 Writeln('Produsul numerelor pare=',p);

end.