Viết chương trình tính tổng S=1+1/2+1/3+... +1/20
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.
Program tinh_tong;
uses crt;
Var i:integer;
t:real
begin
clrscr;
t:=0;
For i=1 for 20 do
t:=t+1/i;
Writeln('Tong la:',t:4:2);
Readln;
End.
Câu hỏi trong lớp
Xem thêm