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/

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.

Trả lời