Cho S=1/1+1/2+1/3+...+1/101 Viết chương trìng Pascal sử dụng câu lệnh lặp để tính tổng S
2 câu trả lời
uses crt;
var S:real;
i:byte;
begin
clrscr;
S:=0;
for i:=1 to 101 do s:=s+1/i;
write('s = ',s:4:2);
readln
end.
Uses crt;
Var i: integer;
s : real;
Begin clrscr;
s:=0;
For i:=1 to 101 do
s := s+1/i;
Write('Tong S=',s);
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
