CT đây nhé!:

program tinhtong;

uses crt;

var i, n : integer; S : real;

begin

clrscr;

writeln('Nhap so thu n: '); readln(n);

S:=0; i:=1;

while i<=n do begin

S:=S+1/i; i:=i+1;

end;

writeln('Tong la: ',S:2:3);

readln

end.

Tự luận:

Câu 1: Các câu lệnh của vòng lặp không có câu lệnh kết thúc điều kiện thì vòng lặp sẽ lặp vô hạn.

Câu 2: Máy thực hiện 5 vòng lặp:

Vòng lặp 1: M=2

Vòng lặp 2: M=4

Vòng lặp 3: M=6

Vòng lặp 5: M=8

Vòng lặp 5: M=10

Câu 3:

program tỉntong;

uses crt;

var s :real; i, n : integer;

begin

clrscr;

write('So thu n la: '); readln(n);

S:=0; i:=1;

while i<= n do begin

S:=S+1/i; i:= i+1; end;

writeln('Tong cac so do la: ',S:2:3);

readln

end.

Ko hiểu chỗ nào thì bạn hỏi nhé!

số các số là:

    (78-0)/1+1=79(số)

              đáp số: 79 số

Ta có: (2a+b+c+d/a)-1=(a+2b+c+d/b)-1=(a+b+2c+d/d)-1=(a+b+c+2d/d)-1

=>a+b+c+d/a=a+c+b+d/b=a+b+c+d/c=a+b+c+d/d

=>a=b=c=d         (1)

Ta lại có: a+b+c+d/a=a+b+c+d/b=a+b+c+d/c=a+b+c+d/d

=> a+b+c+d/a=a+b+c+d/b=a+b+c+d/c=a+b+c+d/d=(a+b+c+d+a+b+c+d+a+b+c+d+a+b+c+d+)/a+b+c+d

=4(a+b+c+d)/a+b+c+d=4          (2)

Từ (1) và (2) => a=b=c=d=1

=> M=1+1/1+1 + 1+1+/1+1 + 1+1/1+1 + 1+1/1+1

=4

Quan hệ tiếp nối.

Thi xong từ tuần trước và tuần này đã có kết quả !!!

khó thế                      

x^3+8=x^3+2^3=(x+2)(x^2-2x+4)

(x+1)(x^2-x+1)=x^3+1

Giá trị của biến có thể thay đổi được nhưng giá trị của hằng được giữ nguyên trong suốt quá trình thực hiện chương trình