Viết chương trình tính tổng S:=1/1+1/2+1/3+...+1/n Viết chương trình tìm tổng bình phương các số từ 1 đến 100 Giúp vs ặ cần gấp ặ hứa vote 5 shao và tlhn ặ
1 câu trả lời
Viết bằng Pascal
Chương trình tính tổng:
uses crt;
var i,n: longint;
s:real;
begin
clrscr;
write ('Nhap n: '); readln (n);
s:=0;
for i:=1 to n do
s:=s+1/i;
write ('Tong la: ',s);
readln;
end.
Chương trình tìm tổng bình phương các số từ 1 đến 100:
uses crt;
var i,s: longint;
begin
clrscr;
s:=0;
for i:=1 to 100 do
s:=s+i*i;
write ('Tong la: ',s);
readln;
end.
