Bài 1:
program sochan;
uses crt;
var n,i:integer;
begin
clrscr;
write('Nhap so nguyen n: '); readln(n);
write('Cac so chan tu 1 den ',n,' la: ');
for i:=1 to n do
if i mod 2=0 then write(i,' ');
readln;
end.
Bài 2:
program sochiahet;
uses crt;
var n,i:integer;
begin
clrscr;
write('Nhap so nguyen n: '); readln(n);
write('Cac so chia het cho 3 tu 1 den ',n,' la: ');
for i:=1 to n do
if i mod 3=0 then write(i,' ');
readln;
end.
Bài 1:
program sochan;
uses crt;
var n,i:integer;
begin
clrscr;
write('Nhap so nguyen 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.
