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.