1
uses crt;
var i,n,S:Integer;
Begin
clrscr;
writeln('nhap so n=');Readln(n);
S:=0; i:=0
while i<=n do
begin
i:=i+1;
S:=S*i;
end;
writeln('S=',S);
readln
End.
Bạn ơi, cô bạn bảo tính tích n số tự nhiên đầu tiên mà số tự nhiên đầu tiên là 0 nên nếu S ra bằng 0 thì đúng nhé, nếu cô bạn bảo sai thì bạn sửa lại i:=1 thế la đc
2
uses crt;
var i:integer;
begin
clrscr;
for i:=1 to 50 do begin writeln('A');
End;
readln
end.