Viết trương trình tính tích N số tự nhiên đầu tiên, với N được nhập từ bàn phím. a. Sử dụng câu lệnh lặp for... do b. Sử dụng câu lệnh lặp while... do

b.

var i,n: integer;

s:longint;

begin

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

s:=0;

i:=1;

while i<=n do

begin

s:=s+i; i:=i+1;

end;

write('tong cua',n,' so tu nhien dau tien la',s);

readln

end.

a/

Program BTH;
Uses Crt;
var s,n,i:longint;
Begin
        clrscr;
        Write('Nhap n: ');readln(n);
        s:=1;
        For i:=1 to n do
        Begin
                s:=s*i;
        end;
        Writeln('Tong day so trong day la: ',s);
        readln;
end.

b/

Program BTH;
Uses Crt;
var s,n,i:longint;
Begin
        clrscr;
        Write('Nhap n: ');readln(n);
        s:=1;
        i:=1;
        While i<=n do
        Begin
                s:=s*i;
                i:=i+1;
        end;
        Writeln('Tong day so trong day la: ',s);
        readln;
end.