1. N=32-(-32)=6
2 в 7 степени=128
2 в 6 степени>65<2 в 7 степени
i=7
40960:7=286720 бит
Var
i:integer;
n,m:longint;
begin
Write('Введите натуральное m: '); Read(m);
n:=1;
repeat
n:=3*n; Inc(i)
until n>m;
Writeln('3^',i-1,' = ',n div 3,' не превышает ',m)
end.
<em><u>Тестовые решения:</u></em>
Введите натуральное m: 1
3^0 = 1 не превышает 1
Введите натуральное m: 3
3^1 = 3 не превышает 3
Введите натуральное m: 54652341
3^16 = 43046721 не превышает 54652341
<span>Это файл инициализации сервера сертификатов для Paradox.NET. Он нужен .</span>
Для начала инициализация массива, ищем элементы типа "UINT" складываем и умножаем на два, затем делим всё на 2 если числа дробные, то выкидывем, дальше вывод массива.
White('завтра :' a, ':', b, ':', c);