1.

uses crt;
var i:byte;
begin
    clrscr;
    i:=0;
    while i<100 do 
        begin
        i:=i+1;
        writeln(i);
        end;
    readln;
end.

2.

uses crt;
var i:byte;
begin
    clrscr;
    i:=0;
    while i<100 do 
        begin
        i:=i+1;
        if i mod 2 = 0 then writeln(i);
        end;
    readln;
end.

3.

uses crt;
var i,n:integer;
begin
    clrscr;
    i:=0; n:=101;
    while (n>100) or (n<1) do 
        begin
        writeln('Nhap so trong khoang tu 1 den 100: ');readln(n);
        if (n>100) or (n<1) then writeln('Nhap lai!');
        end;
    writeln('OK!');
    readln;
end.

4.

uses crt;
var i:integer;
begin
    clrscr;
    for i:=1 to 10 do
        begin
        if i mod 2 = 0 then 
            writeln(i,' la so chan')
        else
            writeln(i,' la so le');
        end;
    
    readln;
end.

5.

uses crt;
var i,n:integer;
begin
    clrscr;
    i:=0; n:=101;
    while 1 = 1 do 
        begin
        writeln('Nhap so trong khoang tu 1 den 100: ');readln(n);
        if (n>100) or (n<1) then writeln('Nhap lai!')
        else break;
        end;
    writeln('OK!');
    readln;
end.

______________________

#Duahauvn

Bài 1:

#include <iostream>

using namespace std;

int main() {
  long i=1;
  while (i<=100){
    cout << i << endl;
    i++;
  }
}

Bài 2:

#include <iostream>

using namespace std;

int main() {
  long i=1;
  while (i<=100){
    if (i%2==0){
      cout << i << endl;
    }
    i++;
  }
}

Bài 3:

#include <iostream>

using namespace std;

int main() {
  long n;
  cout << "nhap mot so trong khoang tu 1 den 100: ";
  cin >> n;
  while (not(1<=n and n<=100)){
    cout << "nhap lai mot so nam trong khoang tu 1 den 100: ";
    cin >> n;
  }
}

Bài 4:

#include <iostream>

using namespace std;

int main() {
  long i=1;
  while (i<=10){
    if (i%2==0){
      cout << i << " la so chan";
    }
    else{
      cout << i << " la so le";
    }
    cout << endl;
    i++;
  }
}

Bài 5:

#include <iostream>

using namespace std;

int main() {
  while (true){
    cout << "#Daoanhviet96";
  }
}

**Bài 5 cũng có 1 vài cách khác:

#include <iostream>

using namespace std;

int main() {
  long i=1;
  while (i==1){
    cout << "#Daoanhviet96";
  }
}

,

#include <iostream>

using namespace std;

int main() {
  long i=1;
  while (i<10){
    cout << "#Daoanhviet96";

    i--;
  }
}

...

$\color{red}{\text{#Daoanhviet96}}$