viết chương trình nhập 1 số nguyên N và in ra màn hình tích của N và số tự nhiên đầu tiên

Question

viết chương trình nhập 1 số nguyên N và in ra màn hình tích của  N và số tự nhiên đầu tiên

haianh · Answer

program phuongt;

uses crt;

var n, i: integer;

s: longint;

begin

clrscr;

write(‘Nhap n = ‘); readln(n);

s:=0;

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

write(‘Tich S = ‘, s);

readln

end.

maianhtu · Answer

program tich_dautien;

uses crt;

var n,i:byte;

tich:int64;

begin

clrscr;

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

tich:=1;

for i:=1 to n do

tich:=tich*i;

write(‘Tich ‘,n,’ so tu nhien dau tien la: ‘,tich);

readln;

end.