Quyền lợi thành viên thường & thành viên Vip
| Thành viên thường |
Thành viên VIP |
|
|---|---|---|
| Học và làm bài tập | 3 - 5 bài miễn phí (chọn sẵn) | Tất cả (không giới hạn) |
| Xem đáp án, lời giải chi tiết | ||
| Làm bài kiểm tra | Tất cả (không giới hạn) | |
| Toán vui mỗi ngày | ||
| Toán vui mỗi tuần | ||
| Thi đấu kiến thức | Không giới hạn | |
| Hỏi đáp nhanh | ||
| Danh sách bạn bè | Tối đa 50 bạn | Tối đa 200 bạn |
| Xem bài giảng video (Sắp ra mắt) |
Xem toàn bộ, không giới hạn |
|
| Phí thành viên |
Free | 200.000 đ/năm |
| ĐĂNG KÝ VIP |
Thành viên VIP sẽ được hưởng tất cả các quyền lợi VIP trong vòng 1 năm (365 ngày).
(học được tất cả các lớp, tất cả các môn có trên website)
(học được tất cả các lớp, tất cả các môn có trên website)
Hỏi đáp Toán lớp 8 - câu hỏi số 35305
Viết chương trình tính tổng: S= 1+ 1/2 + 1/3 + ….. + 1/N(n là số nguyên được nhập từ bàn phím) làm tui vote cho ai xong và đúng dầu tiên tin học nha
Viết chương trình tính tổng: S= 1+ 1/2 + 1/3 + ….. + 1/N(n là số nguyên được nhập từ bàn phím) làm tui vote cho ai xong và đúng dầu tiên tin học nha
Câu hỏi Toán lớp 8
Học và làm bài tập Toán lớp 8
Trả lời câu hỏi này
program tinhtong;
uses crt;
var i, n : integer; S : real;
begin
clrscr;
writeln('Nhap so thu n: '); readln(n);
S:=0; i:=1;
while i<=n do begin
S:=S+1/i; i:=i+1;
end;
writeln('Tong la: ',S:2:3);
readln
end.
2 bình chọn đúng
Báo cáo sai phạm
baonhi09 đã chọn câu trả lời này
chơi thế thì lúc nào chả hạng nhất
0 bình chọn đúng
Báo cáo sai phạm
Sử dụng For...do
Program tinhtong;
var n,t : integer;
s : real;
begin
write('Nhập số n');readln(n);
s:=0;
For t:=1 to n do s:=s+1/t;
writeln('Tổng s là',s);
readln
end.
Sử dụng While...do
Program tinhtong;
var n,t : integer;
s : real;
begin
write('Nhập số n');readln(n);
s:=0; t:=1;
While t <= n do
begin t:=t+1;
s:=s+1/t end ;
writeln('Tổng s là',s);
readln
end.
1 bình chọn đúng
Báo cáo sai phạm
Sử dụng For...do
Program tinhtong;
var n,t : integer;
s : real;
begin
write('Nhập số n');readln(n);
s:=0;
For t:=1 to n do s:=s+1/t;
writeln('Tổng s là',s);
readln
end.
Sử dụng While...do
Program tinhtong;
var n,t : integer;
s : real;
begin
write('Nhập số n');readln(n);
s:=0; t:=1;
While t <= n do
begin t:=t+1;
s:=s+1/t end ;
writeln('Tổng s là',s);
readln
end.
0 bình chọn đúng
Báo cáo sai phạm
Sử dụng For...do
Program tinhtong;
var n,t : integer;
s : real;
begin
write('Nhập số n');readln(n);
s:=0;
For t:=1 to n do s:=s+1/t;
writeln('Tổng s là',s);
readln
end.
Sử dụng While...do
Program tinhtong;
var n,t : integer;
s : real;
begin
write('Nhập số n');readln(n);
s:=0; t:=1;
While t <= n do
begin t:=t+1;
s:=s+1/t end ;
writeln('Tổng s là',s);
readln
end.
0 bình chọn đúng
Báo cáo sai phạm
Sử dụng For...do
Program tinhtong;
var n,t : integer;
s : real;
begin
write('Nhập số n');readln(n);
s:=0;
For t:=1 to n do s:=s+1/t;
writeln('Tổng s là',s);
readln
end.
Sử dụng While...do
Program tinhtong;
var n,t : integer;
s : real;
begin
write('Nhập số n');readln(n);
s:=0; t:=1;
While t <= n do
begin t:=t+1;
s:=s+1/t end ;
writeln('Tổng s là',s);
readln
end.
0 bình chọn đúng
Báo cáo sai phạm
Sử dụng For...do
Program tinhtong;
var n,t : integer;
s : real;
begin
write('Nhập số n');readln(n);
s:=0;
For t:=1 to n do s:=s+1/t;
writeln('Tổng s là',s);
readln
end.
Sử dụng While...do
Program tinhtong;
var n,t : integer;
s : real;
begin
write('Nhập số n');readln(n);
s:=0; t:=1;
While t <= n do
begin t:=t+1;
s:=s+1/t end ;
writeln('Tổng s là',s);
readln
end.
0 bình chọn đúng
Báo cáo sai phạm
Sử dụng For...do
Program tinhtong;
var n,t : integer;
s : real;
begin
write('Nhập số n');readln(n);
s:=0;
For t:=1 to n do s:=s+1/t;
writeln('Tổng s là',s);
readln
end.
Sử dụng While...do
Program tinhtong;
var n,t : integer;
s : real;
begin
write('Nhập số n');readln(n);
s:=0; t:=1;
While t <= n do
begin t:=t+1;
s:=s+1/t end ;
writeln('Tổng s là',s);
readln
end.
0 bình chọn đúng
Báo cáo sai phạm
Sử dụng For...do
Program tinhtong;
var n,t : integer;
s : real;
begin
write('Nhập số n');readln(n);
s:=0;
For t:=1 to n do s:=s+1/t;
writeln('Tổng s là',s);
readln
end.
Sử dụng While...do
Program tinhtong;
var n,t : integer;
s : real;
begin
write('Nhập số n');readln(n);
s:=0; t:=1;
While t <= n do
begin t:=t+1;
s:=s+1/t end ;
writeln('Tổng s là',s);
readln
end.
0 bình chọn đúng
Báo cáo sai phạm
program tinhtong;
uses crt;
var i, n : integer; S : real;
begin
clrscr;
writeln('Nhap so thu n: '); readln(n);
S:=0; i:=1;
while i<=n do begin
S:=S+1/i; i:=i+1;
end;
writeln('Tong la: ',S:2:3);
readln
end.
0 bình chọn đúng
Báo cáo sai phạm
program tinhtong;
uses crt;
var i, n : integer; S : real;
begin
clrscr;
writeln('Nhap so thu n: '); readln(n);
S:=0; i:=1;
while i<=n do begin
S:=S+1/i; i:=i+1;
end;
writeln('Tong la: ',S:2:3);
readln
end.
0 bình chọn đúng
Báo cáo sai phạm
program tinhtong;
uses crt;
var i, n : integer; S : real;
begin
clrscr;
writeln('Nhap so thu n: '); readln(n);
S:=0; i:=1;
while i<=n do begin
S:=S+1/i; i:=i+1;
end;
writeln('Tong la: ',S:2:3);
readln
end.
0 bình chọn đúng
Báo cáo sai phạm
program tinhtong;
uses crt;
var i, n : integer; S : real;
begin
clrscr;
writeln('Nhap so thu n: '); readln(n);
S:=0; i:=1;
while i<=n do begin
S:=S+1/i; i:=i+1;
end;
writeln('Tong la: ',S:2:3);
readln
end.
1 bình chọn đúng
Báo cáo sai phạm
Bạn hãy đăng ĐĂNG NHẬP mới được thực hiện tính năng này
Bạn cần giúp đỡ ?