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.