Var a: array [1..99] of integer;
i, p, n: integer;
begin
p:=1;
readln(n);
for i:=1 to n do
begin
readln(a[i]);
p:=p*a[i];
end;
writeln('Произведение элементов массива = ', p);
<span>end.</span>
Алфавит = 10 цифр+26 маленьких букв+26 больших букв = 62символа.
ближайщая степень двойки 64 = 2^6 т.е. 6 бит на символ
6*10 = 60 бит весит пароль
870*8-60 = 6 900 бит = 862.5 байт
862 байт
1.44мегобайт
если я не ошибаюсь
А) цикл <span>for i:=0 to 5 do s:=s+1; выполнится 6 раз. Переменная s будет равна 6,так как действие s:=s+1 будет увеличивать значение переменной s на 1 с каждым шагом цикла, а значение переменной i будет равно 5, так как for i:=0 to 5 do означает,что цикл будет выполняться, пока значение i, с начала цикла равное 0, не достигнет значения 5.
S=6 , i = 5.
б) В данном случае цикл не выполнится ни разу, так как значение n меньше значения i и используется команда to : </span><span>for i:=2 to n do.
Команда to используется для цикла,значение которого идет вверх. В данном случае, чтобы алгоритм выполнился хотя бы раз, нужно было использовать команду downto, которая работает в сторону уменьшения.
Так как алгоритм не будет выполнен, то и значения переменных не изменятся: S=1, i= 2.</span>
Определим объем памяти на 1 лыжника. Лыжников 240, т.е. K=240. 240 – не степень числа 2. Найдем число, большее 240 и являющееся степенью 2.