Bài 7. Câu lênh lặp

Tu Nguyen

Hãy tính tổng: A=1 + \(\dfrac{1}{2}+\dfrac{1}{3}\)+...+\(\dfrac{1}{20}\) trong turbo pascal

Trương Quang Dũng
13 tháng 4 2018 lúc 17:33

program tinh_tong;
uses crt;
var i:integer;
t:real;
begin
clrscr;
t:=0;
for i:=1 to 20 do
t:=t + 1/i;
writeln('Tong la: ',t:4:2);
readln;
end.

Bình luận (0)

Các câu hỏi tương tự
Vũ Duy
Xem chi tiết
bùi công tuấn
Xem chi tiết
Vũ Duy
Xem chi tiết
Cục thịt
Xem chi tiết
DoriKiều
Xem chi tiết
Sương Đặng
Xem chi tiết
Sherry Lê
Xem chi tiết
Nguyen Thi Thanh Thao
Xem chi tiết
tạ thị thanh thảo
Xem chi tiết