Giúp em giải mấy bài tập Pascal

[boystar_158]

Bài 1:Tính tổng sau:
a) S=1+1/2+1/3+1/4+1/5........
Yêu cầu quá trình sẽ dừng lại khi 2-S<0.0001.
b) T=1-1/3+1/5-1/7+...+1/N
Với điều kiện 1/N<0.0001
Bài 2: Viết CT phân tích một số ra thừa số nguyên tố
Bài 3: Viết CT để máy tính tìm tất cả các số tự nhiên có 3 chữ số. Biết rằng số đó chia cho 6 dư 2 và tổng các chữ số của nó bằng 20.
Bài 4: Viết CT để máy tính tìm tất cả các số có 4 chữ sôd mà tổng các chữ số hàng trăm và hàng ngàn bằng tổng các chữ số hàng chục và hàng đơn vị.
Bài 5: Viết CT để máy tính tìm tất cả các bộ 5 số tự nhiên x1,x2,x3,x4,x5 sao cho số sau không nhỏ hơn số trước và tổng của chúng bằng N.

[nguyenthong1593]

2 bài trước thì không giải đâu bạn tự giải nha! dùng vòng lặp for và while thôi!
Bài 3 :
program b3;
uses crt;
var a,b,c,i:byte;
begin
for a:=1 to 9 do
for b:=0 to 9 do
for c:=0 to 9 do
if ((100*a+ 10*b+c) mod 6 =2) and (a+b+c=20 ) then writeln(a,b,c);
readln;
end.

bài 4 và bài 5 như thế thôi cũng sử dụng mấy vòng lặp for liên tiếp như thế!
Chúc bạn thành cỗng nghen! ^_^ (_DongHwa_)