Tính S=1+1/3+1/5+.....+1/15 viết bằng câu lệnh while-do
2 câu trả lời
program tinhtong;
uses crt;
var s:real;
i:byte;
begin
clrscr;
s:=0; i:=1;
while i<=15 do
begin
s:=s+1/i;
i:=i+2;
end;
write('Tong la: ',s:2:2);
readln
end.
program tinhtong;
uses crt;
var s:real;
i:byte;
begin
clrscr;
s:=0; i:=1;
while i<=15 do
begin
s:=s+1/i;
i:=i+2;
end;
write('Tong la: ',s:2:2);
readln
end.
