Hãy luôn nhớ cảm ơn và vote 5*
nếu câu trả lời hữu ích nhé!
program ct;
uses crt;
var s:real; i,n:integer;
begin
clrscr;
write('nhap n:=');readln(n);
s:=0;
for i:=1 to n do
if i mod 2=0 then s:=s+1/i;
writeln('tong la:=',s);
readln
end.
Hãy giúp mọi người biết câu trả lời này thế nào?
Xem thêm:
program bau;
uses crt;
var s:real; i,n:integer;
begin
clrscr;
write('nhap n:=');readln(n);
s:=0;
for i:=1 to n do
if i mod 2=0 then s:=s+1/i;
writeln('tong la:=',s);
readln
end.
Hãy giúp mọi người biết câu trả lời này thế nào?
Bảng tin
385
511
219
bạn j ơi đây là toán phải ko