Lập trình pascal cơ bản nha nên dùng longint nếu có thể Đề: Đếm số lượng ước số dương của n

0 bình luận về “Lập trình pascal cơ bản nha nên dùng longint nếu có thể Đề: Đếm số lượng ước số dương của n”

1. uses crt;
   var n,dem,i:longint;
   begin
       clrscr;
       readln(n);
       dem:=2;
       for i:=2 to (n div 2) do
          if n mod i = 0 then dem:=dem+1;
       writeln(dem);
   readln;
   end.

   Bình luận

2. uses crt;
   var n,i,d:longint;
   begin
   clrscr;
      readln(n);
      for i:=1 to n do
         if n mod i=0 then d:=d+1;
      writeln(d); 
   readln;
   end.

   Bình luận