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

Bạn chưa đăng nhập. Vui lòng đăng nhập để hỏi bài
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.


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