Question

Bài 2: Viết chương trình pascal nhập vào 1 số nguyên dương n. Nếu n =0 thì n! = 1. Nếu n > 0 thì n! = 1*2*3*...*n.

Bài 3:

Tính S₆ = 1! + 2! + ... + n!

Với n được nhập từ bàn phím.

Giúp mình với. Thank you very much!

Answer 1

Mik học tin cx đc nhưng lâu quá rùi nên cx quên rùi

Answer 2

Lời giải:

Bài 2:

program hotrotinhoc;

var n,i: longint;

function tich(x: longint): longint;

var j,t: longint;

begin

t:=1;

for i:=1 to x do

t:=t*i;

tich:=t;

end;

begin

readln(n);

if n=0 then n:=1;

if n>0 then

write(tich(n));

readln

end.

Bài 3:

program hotrotinhoc;

var s: longint;

n,i: integer;

function tich(x: integer): longint;

var j: integer;

t: longint;

begin

t:=1;

for i:=1 to x do

t:=t*i;

tich:=t;

end;

begin

readln(n);

s:=0;

if n=0 then s:=1;

if n>0 then

for i:=1 to n do s:=s+tich(i);

write(s);

readln

end.