Ôn tập cuối năm

Bạn chưa đăng nhập. Vui lòng đăng nhập để hỏi bài
thư lê

 sử dụng lệnh lặp while ...do để viết chương trình tính tổng 

S=1/1+1/2+1/3+1/4+...+1/2n

Phía sau một cô gái
16 tháng 3 2023 lúc 15:04

program TinhTongWhileDo;

var

     n, i: integer;

     S: real;

begin

     write('Nhap so n: ');

     readln(n);

     S := 0;

     i := 1;

     while i <= 2*n do

     begin

          S := S + 1/i;

          i := i + 1;

     end;

     writeln('Tong S=1/1+1/2+1/3+1/4+...+1/2n la: ', S:0:2);

     readln;

end.


Các câu hỏi tương tự
Nguyễn kiên
Xem chi tiết
8G_4 Nguyễn Thu Hiền
Xem chi tiết
Nguyễn Khải Minh
Xem chi tiết
nguyễn thị kim ngân
Xem chi tiết
Ngọc Anh
Xem chi tiết
Uyên  Thy
Xem chi tiết
Hoan Lý
Xem chi tiết
Thế anh lã
Xem chi tiết
Nguyễn Thị Yến Nhi
Xem chi tiết