Можно использовать любое слово женского рода, уменшительно-ласкательного значения. Например-мамочка, девочка и т.д.
Если я правильно понял вопрос:
uses crt;Var a:integer;Beginread(a);
if (a>99) and (a<1000) then writeln ('трехзначное')
else writeln ('не трехзначное');End.
Используем.
Пример: мы выбираем, какую букву поставить - "а" или "о", находим проверочное слово.
100011111=1*2^{8}+0*2^{7}+0*2^{6}+0*2^{5}+1*2^{4}+1*2^{3}+1*2^{2}+1*2^{1}+1*2^{0}=287