Chúc bn học tốt
Nhớ vote cho mik 5* và câu tlhn nha ^_^
*program Tong_S;
var n,i: integer;
S: longint;
begin
write('Nhap n:'); readln(n);
S:=0;
for i:=1 to n do S:=S+i;
writeln ('Tong S=',S);
readln
end.
*program Tich_P;
var n,i: integer;
P: longint;
begin
write('Nhap n:'); readln(n);
P:=1;
for i:=1 to n do P:=P*i;
writeln ('Tich P=',P);
readln
end.
*program Tong_A;
var n,i: integer;
A: real;
begin
write('Nhap n:'); readln(n);
A:=0;
for i:=1 to n do A:=A+1/i;
writeln ('Tong A=',A);
readln
end.
*program Tong_B;
var n,i: integer;
B: Real;
begin
write('Nhap n:'); readln(n);
B:=0;
for i:=1 to n do B:=B+1/i*(i-1);
writeln ('Tong B=',B);
readln
end.
