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.
April 15th, 2010
va rog frumos sa ma ajutati la aceasta problema….. imi trebuie urgent.
Se considera tabelul A[1...n,1...m] de numere intregi, unde n,m ≤20. Sa se scrie un program care schimba cu locul prima linie cu ultima linie.
April 20th, 2010
de alcatuit un program ce afiseaza pe ecran lungimea cercului de raza R… ma ajuta si pe mine cineva la aceasta problema?
May 4th, 2010
am gasit un site care mi- a rezolvat tema super http://www.webmateinfo.com
May 4th, 2010
pe aici se obisnuieste sa se rezolve tot programul sau decat o idee de pornire?