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

TN

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

TD
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ự
VD
Xem chi tiết
BT
Xem chi tiết
VD
Xem chi tiết
CT
Xem chi tiết
H24
Xem chi tiết
SD
Xem chi tiết
SL
Xem chi tiết
NT
Xem chi tiết
TT
Xem chi tiết