giúp mk vs m.n s=1/2+1/4+1/6+-+1/2n xđbt , mttt,vct 22/07/2021 Bởi Sarah giúp mk vs m.n s=1/2+1/4+1/6+….+1/2n xđbt , mttt,vct
uses crt; var n,i:word; s:real; BEGIN clrscr; write(‘Nhap N:’); readln(n); s:=0; i:=2; while i<=n*2 do begin s:=s+1/i; i:=i+2; end; write(‘S=’,s:0:3); readln END. Đã test, số vòng lặp của CT ít hơn 1 nửa so với vòng lặp for…to…do Bình luận
program hldph; uses crt; var n,i:integer; s:real; begin clrscr; write(‘Nhap n: ‘); readln(n); for i:=1 to n do s:=s+1/(2*i); write(‘S=’,s); readln; end. chúc bạn mạnh khỏe, có nhiều may mắn và học giỏi cho mình hay nhất nhé mình cảm ơn bạn nhiều ❤️️❤️️❤️️ Bình luận
uses crt;
var n,i:word;
s:real;
BEGIN
clrscr;
write(‘Nhap N:’); readln(n);
s:=0;
i:=2;
while i<=n*2 do
begin
s:=s+1/i;
i:=i+2;
end;
write(‘S=’,s:0:3);
readln
END.
Đã test, số vòng lặp của CT ít hơn 1 nửa so với vòng lặp for…to…do
program hldph;
uses crt;
var n,i:integer; s:real;
begin
clrscr;
write(‘Nhap n: ‘); readln(n);
for i:=1 to n do s:=s+1/(2*i);
write(‘S=’,s);
readln;
end.
chúc bạn mạnh khỏe, có nhiều may mắn và học giỏi
cho mình hay nhất nhé mình cảm ơn bạn nhiều ❤️️❤️️❤️️