Program care calculeaza expresia matematica:
S =1 ! +2 ! + ... n !
! - factorial
(IN PASCAL)
Va rog Am nevoie urgent dau coronita!
Răspunsuri la întrebare
Răspuns de
1
var
y, n, i: longint;
function fact(x: longint): longint;
begin
if x = 1 then fact := 1
else fact := x * fact(x - 1);
end;
begin
writeln('Numarul N:');
readln(n);
if (n > 1) then
begin
y := 0;
for i := 1 to n do
begin
y := y + fact(i);
end;
writeln('y = ', y);
end
else writeln('Incorect');
end.
GoOdGaMe:
Multumesc
Se poate si fara aceste expresii: longint;
function fact(x: longint): longint;
function fact(x: longint): longint;
??? Nu am invatat asta inca
var
y, n, i, p: longint;
begin
writeln('Numarul N:');
readln(n);
if (n > 1) then
begin
y := 0;p := 1;
for i := 1 to n do
begin
p := p * i;
y := y + p;
end;
writeln('y = ', y);
end
else writeln('Incorect');
end.
y, n, i, p: longint;
begin
writeln('Numarul N:');
readln(n);
if (n > 1) then
begin
y := 0;p := 1;
for i := 1 to n do
begin
p := p * i;
y := y + p;
end;
writeln('y = ', y);
end
else writeln('Incorect');
end.
Ms
Alte întrebări interesante
Limba română,
8 ani în urmă
Informatică,
8 ani în urmă
Matematică,
8 ani în urmă
Engleza,
8 ani în urmă
Studii sociale,
9 ani în urmă
Matematică,
9 ani în urmă