Viết các chương trình sau: -Tính tổng n phân số tự nhiên đầu tiên. -Tính tổng n phân số lẻ đầu tiên. -Tính tổng n các phân số chẵn đầu tiên. -Tính tích của 100 số tự nhiên đầu tiên.
2 câu trả lời
uses crt;
var i,n:longint;
s:real;
begin
write('Nhap n: '); readln(n);
for i:=1 to n do
s:=s+(1/i);
write('S : ',s);
readln;
end.
var i,n:longint;
s:real;
begin
write('Nhap n: '); readln(n);
for i:=1 to n do
s:=s+(1/i);
write('S : ',s);
readln;
end.