Viết chương trình tính: 1/2 + 1/3 + 1/4 .... + 1/n ( n>1 : nguyên dương , nhập ngẫu nhiên từ bàn phím
2 câu trả lời
uses crt;
var i,n:longint;
t:real;
begin
clrscr;
readln(n);
t := 0;
for i := 2 to n do
t := t + 1/i;
writeln(t:0:5);
readln;
end.
program window
uses crt;
var n,i:integer;
t:real;
begin
clrscr;
writeln('Nhap n');
readln(n);
t:=0;
for i:=1 to n do
t:=t + 1/i;
writeln('Tong la: ',t:4:2);
readln;
end.
Câu hỏi trong lớp
Xem thêm
