Bài 13: Kiểu bản ghi

Nguyễn ngọc minh
Xem chi tiết
Anh Lê duy
Xem chi tiết
Anh Lê duy
Xem chi tiết
Anh Lê duy
Xem chi tiết
Anh Lê duy
Xem chi tiết
le khoa thanh
Xem chi tiết
Nguyễn Lê Phước Thịnh
14 tháng 10 2019 lúc 13:21

uses crt;
var i,n:integer;
s,t:real;
begin
clrscr;
readln(n);
s:=0.5;
for i:=2 to n do
s:=s+1/(i+1);
writeln('tong la: ',s:5:2);
readln;
end.

Bình luận (0)