Nhập vào một số n nguyên dương,đếm xem từ n đến 100 có bao nhiêu số chia hết cho 3 (Không dùng for do ạ). Dùng free pascal ạ

0 bình luận về “Nhập vào một số n nguyên dương,đếm xem từ n đến 100 có bao nhiêu số chia hết cho 3 (Không dùng for do ạ). Dùng free pascal ạ”

1. uses crt;
   var n,i,d:longint;
   begin
   clrscr;
      repeat
         write(‘Nhap n (n<=10): ‘); readln(n);
      until n<=10;
      i:=n;
      while i<=100 do 
         begin
            if i mod 3=0 then inc(d);
            inc(i);
         end;
      writeln(‘Ket qua: ‘,d);
   readln
   end.

   Bình luận

2. program kaito;
   uses crt;
   var i, n, dem: integer;
   begin
         clrscr;
         write(‘Nhap n: ‘); readln(n);
         if (n>10) then writeln(‘Khong hop le!”)
         else begin
               i:=n; dem:=0;
               while (i<=100) do begin
                     if (i mod 3 = 0) then inc(dem);
                     inc(i);
               end;
         writeln(‘Tu ‘,n,’ den ‘,100,’ co ‘,dem,’ so chia het cho 3′);
         end;
         readln
   end.

   CHÚC BẠN HỌC TỐT!!!

   Bình luận