Tìm kiếm:

mình mới học nên chưa biết gj` mong mọi người thông cảm.
Đề bài: In lên màn hình n số tự nhiên chẵn đầu tiên. Biết n nhập từ bàn phím.
(kết hợp cả for-to và while-do nghe mấy bạn). giúp mình với!...

U kiểm tra trc di cho chắc ăn

[=========> Bổ sung bài viết <=========]

mọi người hướng dẫn em bài này với:
Tính L=1/1! + 1+ 2/2! + 2+ 3/3! +....+ (m-1)+ m/m! +... cho đến khi m/m! <...

ko còn cách khác ah .

[=========> Bổ sung bài viết <=========]

mai mình thi học kì rui`

Var i,t:Integer;
S:Real;
Begin
For i:=1 to 1000 do
Begin
t:=i+(i+1);
S:=S+(i+2)/t;
End;
Writeln(S:2:2);
Readln;

còn mấy bài kahcs nữa ah

Bài 1: Tính R=3/(1+2) + 4/(2+3) + 5/(3+4) +....+ 1002/(1000+1001)
Bài 2: Tính L=1/1! + 1+ 2/2! + 2+ 3/3! +....+ (m-1)+ m/m! +... cho đến khi m/m! < 0.000002
Bài 3: Nhập M, N(ng dương). Kiểm tra đó...

nhờ mọi người xem lại bài 2 dùm em

mình đổi dấu > thành dấu < thì dc nhưng nhập a bằng bao nhiu thì nó cho s bằng từng đó lun

[=========> Bổ sung bài viết <=========]

bạn send file .pas của bạn cho mình dc ko.
...

thoy làm lại bài cho mình lun

[=========> Bổ sung bài viết <=========]

mình làm thế này chuẩn chưa bạn:
var i,a:integer;
s: real;
begin
write ('nhap a=');
readln (a);

bạn thử test xem sao, mà ko thì ghi lại bài làm hoàn chỉnh cho mình luôn. cố giúp mình với. thứ 2 mình thi học kì rui`