Viết chương trình: 1. T:=1 * 2 * 3 * 4 *…*n 2. S:=1+2+3+…+n 3. S:= 1+ 1/2 + 1/3 +1/4 +….+1/n Trong đó n là số nguyên dương được nhập từ bàn phím.

- Chương trình 1 :

uses crt;
var n, T, i : integer;
begin
clrscr;
write('Nhap so n = '); readln(n);
i := 1; T := 1;
while i <= n do
    begin
        T := T * i;
        i := i + 1;
    end;
write('T = ', T);
readln
end.

- Chương trình 2 :

uses crt;

var n, S, i : integer;

begin

clrscr;

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

i := 1; S := 0;

while i <= n do

    begin

        S := S + i;

        i := i + 1;

    end;

write('S = ', S);

readln

end.

- Chương trình 3 :

uses crt;

var n, i : integer; S : real;

begin

clrscr;

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

i := 1; S := 0;

while i <= n do

    begin

        S := S + 1 / i;

        i := i + 1;

    end;

write('S = ', S : 2 : 1);

readln

end.

1/

Program BTH;
uses crt;
var a,b,t:longint;
Begin
clrscr;
write('Nhap so n: ');readln(a);
t:=1;
for b:=1 to a do
t:=t*b;
writeln(t);
readln;
end.

2/

Program BTH;
uses crt;
var a,b,t:longint;
Begin
clrscr;
write('Nhap so n: ');readln(a);
for b:=1 to a do
t:=t+b;
writeln(t);
readln;
end.

3/

Program BTH;
uses crt;
var a,b:longint;
c:real;
Begin
clrscr;
Write('Nhap so n: ');readln(a);
For b:=1 to a do
c:=c+1/b;
writeln('Tong day so tren la: ',c:4:2);
readln;
end.