viết chương trình tính tổng s=1+1/2+1/3+......1/20 giúp em với ạ
2 câu trả lời
program ct;
uses crt;
var i,n:integer; s:real;
begin
clrscr;
s:=0;
for i:=1 to 20 do s:=s+1/i;
writeln('tong la:',s);
readln
end.
uses crt;
var s : real;
i : integer;
begin clrscr;
s:=0;
for i:=1 to 20 do s:=s+1/i;
write('Tong S=', s);
readln
end.
Câu hỏi trong lớp
Xem thêm