"cấu trúc lặp"-1 bài tin cần giải đáp ngay

[vothaovt97]

[TẶNG BẠN] TRỌN BỘ Bí kíp học tốt 08 môn
Chắc suất Đại học top - Giữ chỗ ngay!!

ĐĂNG BÀI NGAY để cùng trao đổi với các thành viên siêu nhiệt tình & dễ thương trên diễn đàn.

bài 1
nhập số nguyên dương n:\leq100
S =1/2 +2/3 +3/4+.......+(n+1)

 

[lamdetien36]

bài 1
nhập số nguyên dương n:\leq100
S =1/2 +2/3 +3/4+.......+(n+1)

Nhầm box nhé

var
    S: real;
    N, i: integer;
begin
    write('Nhap N: '); readln(N);
    S := 0;
    for i := 1 to N do S := S + N / (N + 1);
    write('S = ', S : 0 : 6);
    readln
end.