- 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.
