Bài 1. Viết chương trình: - Nhập vào số nguyên N. - Tính tích N số nguyên đầu tiên và xuất kết quả ra màn hình.

1 câu trả lời

program so_n ;

uses crt;

var n,tich,i : integer;

begin

clrscr;

tich:=1;

write('n=');readln(n);

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

writeln('tich ',n,' so nguyen đau tien la ',tich);

readln

end.