Să se calculeze: S=1+1*2+1*2*3+…+1*2*3*…*n, unde n se citeşte de la tastatură.
program prob5;
var p, s,n,i,j:integer;
begin
write(‘n=’);readln(n);
s:=0;
p:=1;
for i:=1 to n do begin
p:=p*j;
s:=s+p;
end;
write(‘rezultatul este:’,s);
readln;
end.
Posturi asemanatoare
Daca vrei sa fii la curent cu ceea ce apare zilnic pe blog, poti sa te abonezi la feedreader ( e gratis, in cazul in care iti pui intrebarea ).
Pe langa asta, poti sa ma urmaresti pe Twitter ori pe Facebook. Daca te intereseaza mai mult partea
profesionala a lucrurilor, atunci vezi mai multe pe profilul meu de linkedin, incerc sa il tin cat de cat la curent.
March 18th, 2009
nu ii bun programu………:P:P invatza sa le faci k loomea:D
March 18th, 2009
Nasol daca nu-i bun.
Ah, si nu vreau sa invat sa le fac “kloomea” ca nu mai sunt la stadiul in care trebuie sa imi caut temele de la scoala pe net
June 3rd, 2009
NU II BUN MHA NU STI NIK
June 3rd, 2009
@ Razvan – e pacat daca nu ii bun. Ai dreptate, nu stiu pascal, pentru ca am trecut de perioada in care imi fac temele pe net ( vezi si ultimul comentariu ).
Vad doar comentarii de cacat, ca nu e bun. Atunci vin-o cu solutia, in loc sa tocesti tastatura ca nu-i bun si ca nu stiu nimic. RETARD!
September 22nd, 2009
NU e bun ptr k nu e pus begin dupa for
))
November 21st, 2009
program prob5;
var p, s,n,i,j:integer;
begin
write(’n=’);readln(n);
s:=0;
p:=1;
for i:=1 to n do begin
while j<=i do begin
p:=p*j;
j:=j+1;
end;
s:=s+p;
end;
writeln('s=', s);
end.
November 21st, 2009
program prob5;
var p, s,n,i,j:integer;
begin
write(’n=’);readln(n);
s:=0;
for i:=1 to n do begin
j:=1; p:=1;
while j<=i do begin
p:=p*j;
j:=j+1;
end;
s:=s+p;
end;
writeln('s=', s);
end.