Viết chương trình tính
S= 1+1/2+1/3+1/4+...+1/n
Với n thuộc N , n khác 0
Giúp em với mọi người
2 câu trả lời
program tinh_tong;
uses crt;
var n,i:integer;
S:real;
begin
clrscr;
writeln('Nhap n');
readln(n);
S:=0;
for i:=2 to n do
S:=S + 1/i;
writeln('Tong la: ',S:4:2);
readln;
end.
#legendarysthoidap247
Program baitap;
Uses crt;
Var S:real;
i,n:longint;
Begin
Clrscr;
S:=0;
Write('n='); Readln(n);
For i:=1 to n do S:=S+1/i;
Writeln('S=',S:5:1);
Readln
End.
- Đề thi học kì 2 môn địa 8 có lời giải chi tiết
- Đề thi học kì 2 môn địa 8 có lời giải chi tiết
- Đề thi học kì 2 môn địa 8 có lời giải chi tiết giúp các em luyện tập và củng cố kiến thức hiệu quả
- Kiểm tra 15 phút lần 1 học kì 1 - đề số 5 Địa 8 có lời giải chi tiết
- Kiểm tra 15 phút lần 1 học kì 1 - đề số 4 Địa 8 có lời giải chi tiết
