tính tích n số tự nhiên đầu tiên

CODE PYTHON:

n = int(input("Nhập giá trị n: "))

tich = 1

for i in range(1, n+1):

     tich *= i

print("Kết quả: ", tich)

CODE PASCAL:
var n, i: integer;

      tich: longint;

begin

write('Nhap gia tri n: ');          readln(n);

tich:=1

for i:= 1 to n do tich:=tich*i;

write('Ket qua: ', tich);

readln

end.

Gửi bạn:

Program likervietnam;

Uses crt;

Var i,n:integer;

tich:longint;

Begin

clrscr;

tich:=1;

write('Nhap n:');readln(n);

for i:=1 to n do tich:=tich*i;

writeln('tich=',tich);

readln;

End.