Viết chương trình tính tổng S=1+1/2+1/3+… +1/20 08/08/2021 Bởi Alaia Viết chương trình tính tổng S=1+1/2+1/3+… +1/20
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. Bình luận
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. Bình luận
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.
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.