viết chương trình đếm và in ra số lượng các số nguyên chia hết Cho 3 hoặc 7 nằm trong đoạn 1 đến 100 ( bằng For -do)

0 bình luận về “viết chương trình đếm và in ra số lượng các số nguyên chia hết Cho 3 hoặc 7 nằm trong đoạn 1 đến 100 ( bằng For -do)”

1. lâu rồi mình chưa code pascal nên code cơ bản với code không hay được :<

   program ctdem;

   uses crt;

   var 

   i,dem:longint;

   begin

   dem:=0;

   for i:=1 to 100 do

   begin

   if i mod 3=0

   then dem:=dem+1;

   else if i mod 7=0

          then dem:=dem+1;

   end;

   writeln (dem);

   end.

   Bình luận

2. uses crt;

   var i,dem:byte;

   begin

   clrscr;

   for i:=1 to n do

   if (i mod 3 = 0) or (i mod 7 = 0) then dem:=dem+1;

   write(‘So luong cac so nguyen chia het cho 3 hoac 7 la: ‘,dem);

   readln;

   end. 

   Bình luận