BAI TINH TONG M
Trang 1 trong tổng số 1 trang • Share •
BAI TINH TONG M
Gửi bài vào đây !
-----------~~๑۩۞۩๑~~ HỌC ONLINE ~~๑۩۞۩๑~~---------------
Em sẽ lớn lên như tôi đã từng khôn lớn
và sẽ bay cao bay xa hơn tôi ..... !!!
* thành viên câu lạc bộ học khuya*
classicfat32@gmail.com
MIE Thiemvan@outlook.com
https://sites.google.com/site/dayhocdientu/
https://www.facebook.com/thiemvan.ngo.39
CHÚT LÃNG MẠN http://sacmauthoigian.wordpress.com/category/classic/
và sẽ bay cao bay xa hơn tôi ..... !!!
* thành viên câu lạc bộ học khuya*
classicfat32@gmail.com
MIE Thiemvan@outlook.com
https://sites.google.com/site/dayhocdientu/
https://www.facebook.com/thiemvan.ngo.39
CHÚT LÃNG MẠN http://sacmauthoigian.wordpress.com/category/classic/
Classic - VAN THIEM- Admin
-
Tổng số bài gửi : 324điểm : 878
Birthday : 27/10/1979
Đến từ : classicfat32@gmail.com
Re: BAI TINH TONG M
program tinh;
uses crt;
var n:integer;
m:real;
begin
clrscr;
m:=0;
n:=0;
while n<=113 do
begin
n:=n+1;
m:=m+1/n;
end;
writeln('m=',m-1/n);
readln;
end.
uses crt;
var n:integer;
m:real;
begin
clrscr;
m:=0;
n:=0;
while n<=113 do
begin
n:=n+1;
m:=m+1/n;
end;
writeln('m=',m-1/n);
readln;
end.
nhom4- USES
-
Tổng số bài gửi : 1điểm : 1
Birthday : 01/01/2000
Job/hobbies : HS
Re: BAI TINH TONG M
program gia_tri;
uses crt;
var x: integer;
M: real;
begin
clrscr;
M:=0;x:=0;
while x<=113 do
begin x:=x+1;
M:=M+1/x;
end;
writeln('M=',M);
readln
end.
uses crt;
var x: integer;
M: real;
begin
clrscr;
M:=0;x:=0;
while x<=113 do
begin x:=x+1;
M:=M+1/x;
end;
writeln('M=',M);
readln
end.
nhom3- USES
-
Tổng số bài gửi : 1điểm : 1
Birthday : 01/01/2000
Job/hobbies : HS
Re: BAI TINH TONG M
program tinhtong;
uses crt;
var S:real;
n:integer;
begin
S:=0;
n:=1;
clrscr;
while n<113 do
begin
S:=S+1/n;
end;
writeln('tong S la',S);
readln;
end.
uses crt;
var S:real;
n:integer;
begin
S:=0;
n:=1;
clrscr;
while n<113 do
begin
S:=S+1/n;
end;
writeln('tong S la',S);
readln;
end.
nhom2- USES
-
Tổng số bài gửi : 1điểm : 1
Birthday : 01/01/2000
Job/hobbies : HS
Trang 1 trong tổng số 1 trang
Permissions in this forum:
Bạn không có quyền trả lời bài viết