Cả 3 chỉ cần dùng For.. to .. do + If.. then.. else là đủ
- bài 1 dùng for 2 lần:
Code:
...
For i:=1 to n do
Begin
Demuoc:=0;
For j:=2 to i-1 do If i mod j =0 then demuoc:=demuoc+1;
If demuoc=0 then Writte(i:4,' la so nguyen to');
End;
- Bài 2 ta nhận thấy
Voi i=1--->Mauso=1
voi i=2--->mauso:=mauso+i-1=1+2-1=2
voi i=3--->mauso:=mauso+i-1=2+3-1=4
voi i=4--->mauso:=mauso+i-1=4+4-1=7
...............
Vậy quy luật là từ phần tử thứ 2 trở đi, mẫu số là M:=m+i-1
Code:
Mauso:=1
Tong:=1
For i:=2 to n do
Begin
Mauso:=mauso+i-1;
Tong:=tong+1/mauso;
End;
- câu 3
Được gửi bởi
mr_invinsible
Câu 3. Dùng 1 biến kiểu thực lưu trữ kết quả, ban đầu gán giá trị 1
Dùng vòng for cho i chạy từ 1 đến 64. Nếu i chẵn thì kq=kq x (x-i) ngược lại cho kq=kq/(x-i)
Bookmarks