Question

Utilizînd instructiunia For elaborați un program care calculeaza pentru primii n termeni suma s
= 10+11+12+...+n și produsul p=10×11×12×...×n.
Vă rog îmi trebue urgent acum

Answer 1

program brainly;

var n, i, s:integer;

p:longint;

begin

 s:=10;

 p:=10;

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

 Write('S=',s,'+');

 for i:=1 to n do begin

   s:=s+(10+i);

   if(i=n) then begin

   Writeln(10+i, '=', s);

   end

   else begin

   Write(10+i, '+');

   end;

 end;

 Write('P=',p,'*');

 for i:=1 to n do begin

 p:=p*(10+i);

   if(i=n) then begin

   Write(10+i, '=', p);

   end

   else begin

   Write(10+i, '*');

   end;

   end;

end.