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

0 bình luận về “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”

1. 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.

   Bình luận

2. 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.

   Bình luận