1Viết CT in ra các số chia hết cho 3 trong n số đầu tiên 2Viết chương trình nhập vào số n kê các ước của n 3 viết chương trình in ra các số chẵn tro

0 bình luận về “1Viết CT in ra các số chia hết cho 3 trong n số đầu tiên 2Viết chương trình nhập vào số n kê các ước của n 3 viết chương trình in ra các số chẵn tro”

1. 1/

   uses crt;

   var i,n: integer;

   begin

   clrscr;

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

   write (‘cac so chia het cho 3: ‘);

   for i:=1 to n do

   if i mod 3<>0 then write (i,’   ‘);

   readln;

   end.

   2/ 

   uses crt;

   var i,n: integer;

   begin

   clrscr;

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

   write (‘cac uoc cua n la: ‘);

   for i:=1 to n do

   if n mod i=0 then write (i,’   ‘);

   readln;

   end.

   3/

   uses crt;

   var i,n: integer;

   begin

   clrscr;

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

   write (‘cac so chan la: ‘);

   for i:=1 to n do

   if i mod 2=0 then write (i,’   ‘);

   readln;

   end.

   Bình luận