Viết chương trình lặp trong pascal : tính : a) S= 1/2 + 1/4 +1/6 +... + 1/20
2 câu trả lời
program oooooo;
ues crt;
var i:longint;
s:real;
begin
clrscr;
write('Ket qua la :');
s:=0;
for i:=1 to 20 do
if i mod 2 =0 then s:=s+1/i;
write(s:2:4);
readln;
end.
Program tinhtobg;
Uses crt;
Var S,i: real;
Begin
For i=2 to 20 do
Begin
i:= 2;
I:=i+2;
S:=0;
S:= s+1/i;
End;
Write(' vay tong S la ',S:2:2);
Readln;
End.
