Question

Giúp với tớ cần gấp viết chương trình cho người dùng nhập vào một số nguyên dương lớn hơn 2 và đưa ra màn hình các số là ước của số nguyên đó.

Answer 1

Var n,i:integer;

Begin

n:=0;

White n<=2 do

Begin

Write('Nhap so n > 2, n = ');readln(n);

End;

Write('Cac uoc cua ',n,' la ');

For i:=1 to n do

If n mod i = 0 then write(i,'   ');

Readln;

End.