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.
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.
nu ii bun programu………:P:P invatza sa le faci k loomea:D
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 😉
NU II BUN MHA NU STI NIK
@ 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!
NU e bun ptr k nu e pus begin dupa for :)))
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.
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.
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.
de alcatuit un program ce afiseaza pe ecran lungimea cercului de raza R… ma ajuta si pe mine cineva la aceasta problema?
am gasit un site care mi- a rezolvat tema super –removed–
pe aici se obisnuieste sa se rezolve tot programul sau decat o idee de pornire?
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…
omule, da` cu j-ul ala ce faci?=))