Diễn đàn Học tốt - HTFM
Chào mừng bạn đến với hoctot.forumvi.com - DIỄN ĐÀN HỌC TỐT
DIỄN ĐÀN HỌC TỐT thành lập với mục đích tạo một môi trường học tập để các bạn học sinh trung học  cùng nhau thảo luận, giải bài tập, tiếp thu kiến thức và học hỏi kinh nghiệm.
Rất mong các bạn tham gia và ủng hộ diễn đàn ngày càng sôi nổi hơn!
Bạn có thể  ĐĂNG NHẬP hoặc ĐĂNG KÝ TÀI KHOẢN  để tham gia học tập với chúng tôi nhé!
Xin cảm ơn!
Diễn đàn Học tốt - HTFM
Chào mừng bạn đến với hoctot.forumvi.com - DIỄN ĐÀN HỌC TỐT
DIỄN ĐÀN HỌC TỐT thành lập với mục đích tạo một môi trường học tập để các bạn học sinh trung học  cùng nhau thảo luận, giải bài tập, tiếp thu kiến thức và học hỏi kinh nghiệm.
Rất mong các bạn tham gia và ủng hộ diễn đàn ngày càng sôi nổi hơn!
Bạn có thể  ĐĂNG NHẬP hoặc ĐĂNG KÝ TÀI KHOẢN  để tham gia học tập với chúng tôi nhé!
Xin cảm ơn!
Diễn đàn Học tốt - HTFM

DIỄN ĐÀN HỌC TỐT thành lập với mục đích tạo một môi trường học tập để các bạn học sinh trung học cùng nhau thảo luận, giải bài tập, tiếp thu kiến thức và học hỏi kinh nghiệm.


You are not connected. Please login or register

Xem chủ đề cũ hơn Xem chủ đề mới hơn Go down  Thông điệp [Trang 1 trong tổng số 1 trang]

#1
 kien2000

avatar
Trial Mod
Trial Mod
1/viết chương trình pascal tính tổng nghịch đảo từ 1 đến 1000?
2/ viết chương trình tính tích của n ố tự nhiên khác 0, sao cho tích <100?
 :cao1:  :cao1:

#2
 HEROSTAR 2K13

HEROSTAR 2K13
Thành viên mới
Thành viên mới
1/ program tinhtong;
var s:real;
i:integer;
begin
s:=0;
i:=1;
while i<=1000 to
begin
s:=s+i;

i:=i+1;
end;
writeln(' vay tong la : ',s);
readln
end.

#3
 quanghai_2000

quanghai_2000
Thành viên năng động
Thành viên năng động
1/
program tinhtong;
var
 S:real;
 i:integer;
begin
  S:=0;
  i:=1;
  while i<=1000 to
     begin
        S:=S+1/i;
        i:=i+1;
     end;
writeln(' vay tong = ',S);
readln
end.
2/
program tinhttich;
var
 S:real;
 i:integer;
begin
  S:=1;
  i:=1;
  while S<1000 to
     begin
        S:=S*1/i;
        i:=i+1;
     end;
writeln(' vay tich = ',S);
readln
end.

#4
 Sponsored content


Xem chủ đề cũ hơn Xem chủ đề mới hơn Về Đầu Trang  Thông điệp [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