цикл -- это научный круг наук так я понила тоесть тебе нужно нарисовать триугольник в круге я так понимаю больше не чем немогу помочь.
Таблицу покажи а то так невыполнить
38 (10cc) =32+4+2=2^5+2^2+2^1=100110 (2cc)
501 | 8
48 |----
----- |62| 8
21 56|--- 501 (10cc) =765 (8cc)
16 ---| 7
---- 6
5
176 (8cc) = 1*8²+7*8+6=126 (10cc)
8579 |16
8576 |------
------- | 536| 16 8579 (10cc) =2183 (16cc)
3 528 |------
------| 33|16
8 32|---
----| 2
1
721 (8cc)=111 010 001 (2cc) = 1 1101 0001 (2cc)= 1D1 (16cc)
167 (8cc) =1 110 111 (2cc) =111 0111=77 (16cc)
AC1 (16cc) =10*16^2+12*16+1 =2753 (10cc)
721 (16cc) =111 0010 0001 (2cc) =11 100 100 001(2cc) =3441 (8cc)
Рассмотрим третий байт IP-адреса узла и IP-адрес сети. Распишем в двоичном виде:
94 = 01011110
80 = 01010000
Первые два байта маски равны 255, так как байты узла и сети совпадают.
Для определения третьего байта маски сети найдем число первых бит, которые совпадают. Совпадают 0101, поэтому число первых бит равно 4, а сам третий байт маски равен 11110000, то есть 240.
Program n1;
var n: real;
begin
write('введите число: ');
readln(n);
if n>0 then writeln(n*n) else writeln(n*n*n);
end.