Nhập vào một mảng,in ra các ước của từng phần tử có trong mảng

Question

haiyen · Answer

uses crt;
var a:array[1..1000000] of int64;
n,i,j:longint;
begin
clrscr;
write(‘Nhap so luong phan tu: ‘); readln(n);
for i:=1 to n do
begin
write(‘Nhap phan tu thu ‘,i,’: ‘); read(a[i]);
end;
for i:=1 to n do
begin
write(‘Uoc cua phan tu thu ‘,i,’: ‘);
for j:=1 to a[i] do if a[i] mod j=0 then write(j,’ ‘); writeln;
end;
readln
end.

ngockhue · Answer

program bt;
uses crt;
var A: array[1..1000] of integer;
i, n, x: integer;
begin
clrscr;
write(‘Nhap do dai mang la:’); readln(n);
for i := 1 to n do begin
write(‘Nhap A[‘, i ,’]=’);
readln(A[i]);
end;
for i := 1 to n do begin
write(‘Uoc so cua phan tu A[‘, i ,’] la:’);
for x := 1 to A[i] do if A[i] mod x = 0 then write(x :3);
writeln;
end;
readln
end.

Nhập vào một mảng,in ra các ước của từng phần tử có trong mảng

Viết một bình luận Hủy