viết chương trình s = 1/2 + 1/4+...+ 1/n + 1/n+2 pascal
2 câu trả lời
Dùng repeat (Chắc có vài người sử dụng :>)
uses crt;
var n,i:longint;
s:real;
begin
clrscr;
write('nhap n= ');
readln(n);
i:=0;
s:=0;
repeat
begin
i:=i+1;
if i mod 2=0 then s:=s+1/i+2;
end;
until
i>n;
writeln('tong',s:3:2);
readln
end.
Dùng for đú, ủa lộn for do
uses crt;
var n,i:longint;
s:real;
begin
clrscr;
write('nhap n= ');
readln(n);
for i:=1 to n do
if i mod 2=0 then s:=s+1/i+2;
writeln('tong',s:3: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
