Question

viet CT nhap 1 so nguyen n khac 0 tu ban phim,viet ra man hinh tat ca cac uoc cua n

Answer 1

uses crt;

var n,i:integer;

begin

clrscr;

repeat

write('Nhap n='); readln(n);

until n>0;

write('Cac uoc cua ',n,' la: ');

for i:=1 to n do

if n mod i=0 then write(i:4);

readln;

end.

Answer 2

giup mik vs mik dg can gap

Answer 3

Program HOC24;

var i,n: integer;

begin

write('Nhap n : '); readln(n);

for i:=1 to n do

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

readln

end.