<span>1. получить стартовые координаты </span>
<span>2. перейти на стартовые координаты </span>
<span>3. выбрать цвет кисти </span>
<span>4. входим в цикл обнуление всех счетчиков </span>
<span>4.1 проверяем количество повортов если оно равно 4 на выход иначе продолжаем </span>
<span>4.2 проверям не конец ли рамки если конец поврот на 90 градусов </span>
<span>4.3 чертим штрих </span>
<span>4.4 сдвигаемся на шаг </span>
<span>4.5 возвращаемся в пункт 4.1</span>
1) 123 в двоичной = <span>1111011
123 в восьмеричной = 173
123 в шестнадцатеричной = 7В
456 в двоичной = </span>111001000<span>
456 в восьмеричной = 710
456 в шестнадцатеричной = 1С8
2) 100011 в десятеричной = 35
</span>100011 в восьмеричной = 43
100011 в шестнадцатеричной = 23
101001011 в десятеричной = 331
101001011 в восьмеричной = 513
101001011 в шестнадцатеричной = 14В
1110010001 в десятеричной = 913
1110010001 в восьмеричной = 1621
1110010001 в шестнадцатеричной 391
Файл с исходным кодом прикреплен в описании (нужно переименовать с 'Program.cs.txt', на просто 'Program.cs'), код продублирован в коментариях к ответу. Если есть вопросы - пиши в коменты.
Код полностью прокоментирован, надеюсь будет понятно.
Int a[39];
int sum=0;
for(int i=0; i<=39; i++)
{ for(int j=20; j<=60; j++)
a[i]=j;
}
for(i=0; i<39;i++)
sum+=a[i];
Var a: integer;
begin
readln(a);
if a >= 0 then
if a = 0 then a := 10
else Inc(a)
else a -= 2;
write(a);
end.