ost:=n mod 100;
k:=n div 100;
if (ost>=10) and (k=0) then write ("Yes") else write("No!);
Объяснение:
Разделив число на 100, найдите целую часть от деления к и остаток от деления ost.
Если целая часть =0, значит вы делили двузначное или однозначное.
Если к этому условию добавить то, что ost двузначный, то это число двузначное. Все остальные комбинации дают отрицательный ответ.
