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.

1) uses crt;

var i,n, s : integer;

begin clrscr;

s:=1; i:=1;

writeln('Nhap n = '); readln(n);

While i <= n then

begin

s:= s*i;

i:=i+1;

Writeln('Tich cua ',n,' so tu nhien dau la :', s);

readln

end.

2. Uses crt;

Var i : integer;

Begin clrscr;

For i:=1 to 50 do writeln('A');

readln

end.