Chủ Nhật, 26 tháng 6, 2022

TONG5 PASCAL

var n,i:longint;s:real;
begin
    assign(input,'tong5.inp');reset(input);
    assign(output,'tong5.out');rewrite(output);
    readln(n);
    s:=0;
    for i:=0 to n do
           s:=s+(2*i+1)/(2*i+2);
    writeln(s:0:2);
end.

Không có nhận xét nào:

Đăng nhận xét

Lưu ý: Chỉ thành viên của blog này mới được đăng nhận xét.