Описание чисел

Program begin62;
Uses crt;
Var a:integer;
begin
ClrScr;
WriteLn (‘Введите a’);
ReadLn (a);
if (a>(-100)) and (a<(-9)) then
WriteLn (‘Отрицательно двузначное’)
else
if (a=0) then
WriteLn (‘Нулевое число’)
else
if (a>0) and (a<10) then
WriteLn (‘Положительное однозначное’);
ReadLn
end.

Дано целое число, лежащее в диапазоне от 1 до 9999. Вывести строку — словесное описание данного числа вида «четное двузначное число», «нечетное четырехзначное число» и т.д.
Читать далее →