1 câu trả lời
program tinh;
uses crt;
var i : integer;
s : real;
begin
clrscr;
for i := 1 to 100 do
if i mod 2 = 0 then s := s + 1/i;
writeln('tong S la :', S:8:2);
readln
end.
Câu hỏi trong lớp
Xem thêm
