nhập từ bàn phím 1 số nguyên dương x. thông báo lên màn hình tất cả các ước số của x
nhập từ bàn phím 1 số nguyên dương x. thông báo lên màn hình tất cả các ước số của x
By Lyla
By Lyla
nhập từ bàn phím 1 số nguyên dương x. thông báo lên màn hình tất cả các ước số của x
program phuongt;
uses crt;
var i, x : integer;
begin
clrscr;
write(‘Nhap x (x>0) = ‘); readln(x);
if x<0 then write(‘x phai la so nguyen duong’) else
write(‘U(x) = ‘);
for i:=1 to x do if (x mod i) = 0 then write(x/i:4:0, ‘, ‘);
readln
end.
uses crt; {khai bao’ thu vien crt}
var x,i:integer;
clrscr;
BEGIN clrscr;{ cau lenh xoa man hinh};
write(‘Nhap x: ‘);readln(x);
writeln(‘nhap so nguyen duong x’); readln(x);
for i:=1 to x do if x mod i=0 then writeln(‘Uoc cua n la’,n/i:0:0);
readln
end.