BÀI 9. LÀM VIỆC VỚI DÃY SỐCÂU HỎI VÀ BÀI TẬP

10.Nội dung Bài 2 của Bài thực hành 6 là viết chơng trình nhận biết một số tựnhiên có phải là số nguyên tố hay không. Nội dung của Bài tập 9, Bài 8, làviết chơng trình tính tổng các ớc số thực sự của một số nguyên, nhng chaliệt kê đợc các ớc số đó. Để có thể liệt kê, chơng trình cần phải ghi lạichúng. ý tởng chính là sử dụng một biến mảng phục vụ cho điều này. Ch-ơng trình tơng tự nh trong Bài tập 9, Bài 8:

uses crt;

var n,i,k,S: integer;

X: array[1..10000] of integer;

begin

clrscr;

i:=2; S:=0;

for k:=1 to (n-1) do X[k]:=0; {Dat lai = 0}

write('Cho so tu nhien n>2: n= '); readln(n);

while i<=(n-1) do {Ghi lai uoc so vao X[i]}

begin if (n mod i)=0 then begin X[i]:=i; S:=S+X[i] end;

i:=i+1;

end;

writeln('Tong cac uoc so thuc su cua ',n,' la: ',S);

if S<>0 then begin write('Cac uoc so cua ',n,' la: ');

for i:=1 to (n-1) do if X[i]<>0 then write(X[i],' ') end

else writeln(n,' la so nguyen to.');

readln;

end.