viết chương trình nhập 1 số nguyên “n” in ra màn hình các ước của “n” ( giúp mk với, sáng mai mình kt rồi )

0 bình luận về “viết chương trình nhập 1 số nguyên “n” in ra màn hình các ước của “n” ( giúp mk với, sáng mai mình kt rồi )”

1. program tim_uoc;
   uses crt;
   var n,i:integer;
   begin
   clrscr;
   write(‘Nhap n: ‘);readln(n);
   if (n<0) then 
   begin
   writeln(‘So nhap vao khong thoa man.’);
   write(‘Nhap lai n: ‘);readln(n);
   end;
   writeln(‘Cac uoc so cua ‘,n,’ tu 1 den ‘,n,’ la: ‘);
   for i:=1 to n do
   if ( (n mod i) = 0 ) then write(i,’  ‘);
   readln;
   end.

   Bình luận

2. uses crt;

   var n: integer;

   begin

   clrscr;

   write (‘nhap n: ‘);  readln (n);

   write (‘cac uoc cua ‘,n,’ la: ‘);

   for i:=1 to n do

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

   readln;

   end.

   Bình luận