Решение задачи If 30

#include<iostream>
#include<cmath>
using namespace std;
int main()
{
	setlocale(LC_ALL, "Russian");
	int a;

	cout << "'a' в диапозоне: 1-999" << endl;
	cout << "a = "; cin >> a;

	if (a % 2 == 0);
	else cout << "не";
	cout << "четное ";
	if (a / 100 > 0 && a / 100 < 10) cout << "трехзначное ";
	else if (a / 10 > 0 && a / 10 < 10) cout << "двухзначное ";
	else if (a / 10 == 0) cout << "однозначное ";
	cout << "число!!!";

	cout << endl << endl;

	system("pause");
	return 0;
}

L = [1,21,80,99,100,101,800,901,999]

for i in L:
    if i%2 == 0:
        s = "четное "
    else:
        s = "нечетное "

    i_str = str(i)
    n = len(i_str)
    if n == 1:
        s += "однозначное "
    elif n == 2:
        s += "двузначное "
    elif n == 3:
        s += "трехзначное "
    
    s += "число"
    print(i," : ",s)
									

program if30;
var
  X: Integer;
begin
 Write('Введите число: ');
 Readln(X);
 if (x mod 2) = 0 then write('Чётное ')
 else write('Нечётное ');
 if x > 99 then write('трёхзначное ');
 if (99 >=x) and (x > 9)  then write('двухзначное ');
 if x <= 9  then write('однозначное ');
 Writeln('число.');
end.