Probleme Pascal – Calculul sumei 1+1*2+1*2*3.+…..*n

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.

13 thoughts on “Probleme Pascal – Calculul sumei 1+1*2+1*2*3.+…..*n

  1. marian

    nu ii bun programu………:P:P invatza sa le faci k loomea:D

  2. Public User

    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 😉

  3. Razvan

    NU II BUN MHA NU STI NIK

  4. Public User

    @ 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!

  5. Felipe

    NU e bun ptr k nu e pus begin dupa for :)))

  6. bianca

    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.

  7. bianca

    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.

  8. Dumitru

    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.

  9. dany

    de alcatuit un program ce afiseaza pe ecran lungimea cercului de raza R… ma ajuta si pe mine cineva la aceasta problema?

  10. zandu`

    pe aici se obisnuieste sa se rezolve tot programul sau decat o idee de pornire?

  11. Niku

    Salut! as vrea sa ma ajute si pe mine cine in pascal…
    As vrea sa calculez suma numerelor
    1+1/2+1/3+1/4.,…n
    va rog ajutatima…

  12. a

    omule, da` cu j-ul ala ce faci?=))

Leave a Reply

Your email address will not be published. Required fields are marked *