0
0
Hãy luôn nhớ cảm ơn và vote 5*
nếu câu trả lời hữu ích nhé!
1205
1215
Đây là câu trả lời đã được xác thực
Câu trả lời được xác thực chứa thông tin chính xác và đáng tin cậy, được xác nhận hoặc trả lời bởi các chuyên gia, giáo viên hàng đầu của chúng tôi.
1/
Program BTH;
uses crt;
var n,s,i:longint;
Begin
clrscr;
Write('Nhap n: ');readln(n);
for i:=1 to n do
s:=s+i;
Write('Tong day so tren la: ',s);
readln;
end.
2/
Program BTH;
uses crt;
var n,s,i:longint;
Begin
clrscr;
Write('Nhap n: ');readln(n);
s:=1;
for i:=1 to n do
s:=s*i;
Write('Tich day so tren la: ',s);
readln;
end.
Hãy giúp mọi người biết câu trả lời này thế nào?
162
117
Cách 1:
Bước 1: Gán cho S:=1/a ; gán cho N=0;
Bước 2: Tăng giá trị N lên 1. N:=N+1;
Bước 3: Nếu N > 100 thì chuyển đến bước 5;
Bước 4: S:=S+1/(a+N); quay lại bước 2 (Thao tác lặp ở đây).
Bước 5: Đưa S ra màn hình rồi kết thúc.
Cách 2:
Bước 1: Gán cho S:=1/a ; gán cho N=101;
Bước 2: Giảm giá trị N xuống 1. N:=N-1;
Bước 3: Nếu N<1 thì chuyển đến bước 5;
Bước 4: S:=S+1/(a+N); quay lại bước 2 (Thao tác lặp ở đây).
Bước 5: Đưa S ra màn hình rồi kết thúc.
Hãy giúp mọi người biết câu trả lời này thế nào?
Bảng tin