Viết chương trình nhập số tự nhiên N từ bàn phím.Kiểm tra từ 1 đến N có bao nhiu số là ước số của N và in các ước số ra màn hình. Ai giúp mình vs ạ lm

0 bình luận về “Viết chương trình nhập số tự nhiên N từ bàn phím.Kiểm tra từ 1 đến N có bao nhiu số là ước số của N và in các ước số ra màn hình. Ai giúp mình vs ạ lm”

1. program dem_in_uoc;

   uses crt;

   var n,i,d:integer;

   begin

          clrscr;

          write(‘Nhap N: ‘);  readln(n);

          for i:=1 to n do

                 if n mod i=0 then

                        begin

                              write(i,’ ‘);

                               d:=d+1;

                        end;

          write(‘=> Co ‘,d,’ uoc’);

          readln;

   end.

   Bình luận

2.  Uses crt;

   Var i,n,d: integer;

   Begin

   Clrscr;

   Write (‘Nhap N: ‘);  readln (n);

   Write (‘Cac uoc cua n tu 1 den n la: ‘);

   For i:=1 to n do if n mod i=0 then

   begin d:=d+1; write (i,’  ‘); end;

   Writeln;

   Writeln (‘Tu 1 den n co ‘,d,’ uoc so cua n’);

   Readln;

   End.

   XIN HAY NHẤT

   Bình luận