Можно попробовать через оператор выбора case (условие со многими выходами) если только такой оператор есть в турбо. в обычном паскале есть.
Например:
writeln(‘Введите цифру ‘);
readln(a);
case a of
0 : writeln (‘ноль‘);
1 : writeln (‘один‘);
2 : writeln (‘два‘);
3 : writeln (‘три‘);
4 : writeln (‘четыре‘);
5 : writeln (‘пять‘);
6 : writeln (‘шесть‘);
7 : writeln (‘семь‘);
8 : writeln (‘восемь‘);
<span> 9 : writeln (‘девять‘);
</span>
Вот эти числа:
10001011 - 139
10111000 - 184
10011011 -155
10110100 - 180
Но, скорее всего, единица в последнем разряде указывает на знак, тогда:
<span>0001011 - 11
</span><span>0111000 - 56
</span><span>0011011 - 27
</span><span>0110100 - 52
</span>Соответственно, только первое число меньше 16
Ответ на задание:
Можно выбрать любую точку координатной плоскости в качестве одной из вершин. Один из четырех возможных вариантов программы: Использовать Чертежник
Поднять перо
Сместиться в точку (4,4)
Опустить перо
Сместиться на вектор (0,4)
Сместиться на вектор (3, 0)
Сместиться на вектор (0, -4)
Сместиться на вектор (-3, 0)