Viết chương trình tính tổng n phân số tự nhiên đầu tiên sd câu lệnh for...do

1 câu trả lời

program Min;
uses crt;
var i,n:integer; S:real;
begin
   clrscr;
   S:=1;
   write('Nhap n: '); readln(n);
   for i:=2 to n do
   S:=S+1/i;
   writeln('Tong la: ',S:4:2);
   readln
end.

Đây nha :D

Câu hỏi trong lớp Xem thêm