C=1+1/2+1/3+...+1/n giúp mk với nhớ ghi rõ ràng hứa cho 5 sao
2 câu trả lời
Program Hotboy ;
Uses crt;
Var s,i,n : longint;
Begin
Clrscr ;
S:=0;
Write('nhap so n tu ban phim ');
Readln(n);
For i:=1 to n do
S:=S+1/i;
Inc(i);
Writeln('tong can tim la',S);
Readln
End.
uses crt;
var C:real; i,n:integer;
begin
clrscr;
write('Nhap n: '); readln(n);
C:=0;
for i:=1 to n do C:=C+1/i;
write('C la: ',C:4:2);
readln
end.
Câu hỏi trong lớp
Xem thêm
- Đề 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
