viết chương trình đếm các số chia hết cho từ 3 đến 1 đến N (N>=100) kết quả hiển thị lên màn hình có sử dụng hàm dem(N)

0 bình luận về “viết chương trình đếm các số chia hết cho từ 3 đến 1 đến N (N>=100) kết quả hiển thị lên màn hình có sử dụng hàm dem(N)”

1. uses crt;
   var n,i,d:longint;
   begin
      clrscr;
      repeat
         write(‘Nhap n (n>=100): ‘); readln(n);
         if n<100 then writeln(‘NHAP LAI!’);
      until n>=100;
      d:=0;
      for i:=1 to n do if i mod 3=0 then inc(d);
      write(‘Co ‘,d,’ so chia het cho 3′);
      readln;
   end.

   Bình luận

2. program dem_3;

   uses crt;

   var n:integer;

   {—Ham—}

   function dem(n:integer):integer;

   begin

          dem:=0;

          for i:=1 to n do

                 if i mod 3=0 then dem:=dem+1;

   end;

   {—CT-chinh—}

   BEGIN

          clrscr;

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

          write(‘Co ‘,dem(n),’ so chia het cho 3 tu 1 den ‘,n);

          readln;

   end.

   Bình luận