Viết chương trình nhập vào số nguyên `n` tính `S:= 1/2 + 1/4 +... + 1/n`. In `S`
2 câu trả lời
uses crt;
var i, n : integer; S : real;
begin
clrscr;
write('nhap so chan n : '); readln(n);
S := 0;
for i := 1 to n do
if i mod 2 = 0 then S := S + 1 / i;
write('S = ', S : 2 : 2);
readln
end.
Program tinh_tong;
Uses crt;
Var i,n:integer;
S:real;
Begin
clrscr;
Writeln('Moi ban nhap so n: '); readln(n);
S:=0; i:=1;
While i<=n do
begin
S:=S+1/i;
i:=i+1;
end;
Writeln('Tong S =', S:5:4);
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
