Мы получаем это делением на два и записываем остатки
var
A: array of Integer; // объявление динамического массива
i: Integer;
begin
i := 0;
while True do begin
SetLength (A, i + 1); // установить новый размер массива
Write ('Введите новое значение массива: ');
ReadLn (A [i]);
if A [i] = 2 then
Break;
Inc (i);
end;
Write ('Элементы массива, возведенные в квадрат: ');
for i := 0 to High (A) do
Write (IntToStr (A [i] * A [i]) + ' ');
WriteLn;
WriteLn ('Количество элементов: ' + IntToStr (i));
end;
По формуле N=2^i где i размер памяти одного элемента.
у нагури 16=2^i значит i=4 бита
в русском языке берется 32, значит i=5 бит
значит в русском тексте больше информации