Viết chương trình tính tổng S =1+ 1/2 +1/3 +...+1/100
2 câu trả lời
Program baitap;
Uses crt;
Var S:real;
i:integer;
Begin
Clrscr;
S:=0;
For i:=1 to 100 do S:=S+1/i;
Writeln('S=',S:9:2);
Readln
End.
var n,i:integer;
S:real;
begin;
write('nhap n = ');
readln(n);
s:=0;
for i :=1 to n do S :=S + 1/i;
writeln('tong S = ',S:5:2);
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
