Xác định bài toán,mô tả thuật toán,viết chương trình nhập vào số nguyên n in ra màn hình các ước của n

0 bình luận về “Xác định bài toán,mô tả thuật toán,viết chương trình nhập vào số nguyên n in ra màn hình các ước của n”

1. Cho mình câu trả lời hay nhất nha

   Uses crt;

   Var n,i,s:integer;

   Begin

     clrscr;

     writeln (‘Nhap n:’);

     readln (n);

     s:=0;

     for i:=1 to n do

     if n mod i:=0 then

     begin

     s:=s+i;

     writeln (s);

     end;

     readln;

   End.

   Bình luận

2. var  a:array[1..1000] of longint;
          m,x,i,n:longint;
   begin
           write(‘Nhap n: ‘);readln(n);
           m:=0;          

           writeln(‘Cac uoc cua ‘,n,’ la: );
           for x:=1 to trunc(sqrt(n)) do
            if n mod x=0 then
            begin
                   writeln(x);
                   m:=m+1;
                   a[m]:=n div x;
            end;
           if (sqrt(n)=trunc(sqrt(n))) then
                   m:=m-1;
           for i:=m downto 1 do writeln(a[i]);
           readln;
   end.

   Bình luận