Viết chương trình vào n bất kì xuất ra các số chẵn từ 1 đến n. Xuất ra các số chia hết cho 3 từ 1 đến n. Xuất ra số chia hết cho 3 và 4 từ 1 đến n. Xuất ra các số nguyên tố từ 1 đến n
Viết chương trình vào n bất kì xuất ra các số chẵn từ 1 đến n. Xuất ra các số chia hết cho 3 từ 1 đến n. Xuất ra số chia hết cho 3 và 4 từ 1 đến n. Xuất ra các số nguyên tố từ 1 đến n
Uses crt;
Var n: longint;
Function ngto(a:longint):boolean;
Var i: longint;
Begin
If a<2 then exit(false);
For i:=2 to a div 2 do
If a mod i = 0 then exit(false);
exit(true);
End;
Begin
Clrscr;
Write(‘Nhap n: ‘); Readln(n);
Write(‘Cac so chan: ‘);
For i:=1 to n do
If i mod 2 = 0 then Write(i:5);
Writeln;
Write(‘Cac so chia het cho 3: ‘);
For i:=1 to n do
If i mod 3 = 0 then Write(i:5);
Writeln;
Write(‘Cac so vua chia het cho 3 vua chia het cho 4: ‘);
For i:=1 to n do
If (i mod 3=0) and (i mod 4=0) then Write(i:5);
Writeln;
Write(‘Cac so nguyen to: ‘);
For i:=1 to n do
If ngto(i) then Write(i:5);
Readln
End.