Bài 4: Viết chương trình nhập vào 1 số N nguyên dương và in ra màn hình các số chẵn từ 0 đến N? (N là số tự nhiên được nhập vào từ bàn phím) Gợi ý: Các số chẵn là các số chia 2 dư 0, ta có thể sử dụng mod để chia lấy phần dư. Bài 5: Viết chương trình nhập vào 1 số N nguyên dương và in ra màn hình các số chẵn từ 0 đến N, sao cho mỗi số chiếm 4 vị trí và 1 dòng có 15 số? Gợi ý: Tương tự bài 4 (sử dụng thêm biến tạm để khi in ra 15 số thì xuống dòng).

Câu 4:

Program FNG;
Uses crt;
Var n,i: longint;
Begin
        Clrscr;
        Write('Nhap n: '); Readln(n);
        For i:=0 to n do
                If i mod 2 = 0 then Write(i,' ');
        Readln
End.

Câu 5:

Program FNG;
Uses crt;
Var n,i,d: longint;
Begin
        Clrscr;
        Write('Nhap n: '); Readln(n);
        d:=0;
        For i:=0 to n do
        Begin
                If d<>15 then
                Begin
                        Write(i:4);
                        inc(d);
                End
                Else
                Begin
                        Writeln;
                        d:=0;
                End;
        End;
        Readln
End.

bài 4: 

program oken;

uses crt;

var n,i:longint;

begin

clrscr;

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

for i:=1 to n do

      if i mod 2= 0 then write(n,' ');

readln;

end.

bài 5:

program oken;

uses crt;

var n,i,tam:integer;

begin

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

for i:=0 to n do

      begin

           if tam mod 15=0 then writeln;

           if i mod 2 = 0 then

              begin

                  write(i:4);

                  tam:=tam+1;

              end;

      end;

readln;

end.