Dùng vòng lặp While-do để giải bài toán S=1+1/3+1/5+…+1/49
1 câu trả lời
uses crt;
var i : integer;
s : real;
begin
clrscr;
s := 0;
i := 1;
while i <= 49 do
begin
s := s + 1/i;
i := i + 2;
end;
writeln(' tong s la :', s:3:2 );
readln
end.
Câu hỏi trong lớp
Xem thêm
