1 .Trùng vòng lặp while ....do viết chương trình in ra màn hình 5 số 1 2 3 4 5 mà không cần nhập từ bàn phím

2.Viết chương trình in ra màn hình các số nguyên dương chẵn <= N ( với N nhập từ bàn phím, sử dụng lệnh lặp while...do ).

*Câu 1 :

uses crt ;
    var i : byte ;
begin
  clrscr ;
     i := 1 ;
    while i <= 5 do 
         begin
        write(i,' ');
        inc(i);
         end ;
end .

*Câu 2 :

uses crt ;
    var a : array[1..1000] of longint ;
        n, i : longint ;
begin
  clrscr ;
    readln(n);
    i := 1 ;
    while i <= n do 
         begin
        read(a[i]);
        inc(i);
         end ;
    i := 1 ;
    while i <= n do 
         begin
        if (a[i] mod 2=0) and (a[i]>0) then write(a[i],' ');
        inc(i);
         end ;
end .

Bài 1:

Program baitap;

Uses crt;

Var i:integer;

Begin

i:=0;

While i<5 do

     Begin

     i:=i+1;

     Write('  ',i);

     End;

Readln

End.

Bài 2:

Program baitap;

Uses crt;

Var N,i:integer;

Begin

Clrscr;

Write('N='); Readln(N);

i:=0;

While i<N do

     Begin

     i:=i+1;

     Write('  ',i);

     End;

Readln

End.