Var
i: integer;
ar: array[1..8]of integer;
begin
for i := 1 to 8 do read(ar[i]);
for i := 1 to 8 do
if(i mod 2 = 0) then write(ar[i], ' ');
end.
Можно на калькуляторе программистическом, Умножаешь на два единицу если у тебя в двоичном единица добавляешь один к произведению если ноль то умножаешь
1)1 бит 8 байт 1024 килобайт 1 мегабайт 2 мегабайта
2) 1-2097152
2_137438953472
3-2872
4-16777216
Первый ответ 111
второй ответ <span>6F</span>
Начало (типо овал такой)
Ввод (типо параллелограмм)
m == n (В ромбике)
m = 0 (Прямоугольник)
n = 0 (Прямоугольник)
m > n (В ромбике)
n = m (Прямоугольник)
n > m (В ромбике)
m = n (Прямоугольник)
Конец ( овал)