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;
writeln('S=',S);
readln
end.
Câu hỏi trong lớp
Xem thêm