Program abc;
const
<span> n = 10;
</span>var
<span> m: array [1..n] of integer;
</span><span> i: integer;
</span>begin
<span> for i := 1 to n do
</span><span> begin</span><span> m[i] := sqr(i) - 1;
</span><span> writeln(m[i]);</span><span>
end;
</span><span>end.</span>
//PascalABC.Net 3.2
begin
var time:=readinteger('Введите время суток: ');
if time in [0..5] then write ('Ночь')
else if time in [6..11] then write ('Утро')
else if time in [12..18] then write ('День')
else write ('Вечер');
end.
Насколько я понял, нужно перевести из двоичной системы счисления в десятичную.
Обычно это делают, умножая цифру в каждом разряде на "вес" разряда, и складывая эти произведения (естественно, все вычисления делаются по правилам десятичной системы счисления).
Я специально не стал пропускать разряды, равные нулю, чтобы была понятнее суть вычислений при переводе:
А так, их конечно можно пропустить, но главное при этом не пропускать увеличение степени, в которую возводим двойку (она увеличивается на единицу с каждым разрядом в исходном числе). Вот вариант с пропуском нулевых разрядов:
<span>65- кол-во вариантов результата (32 + 32 +1)
2 в 6 степени<65<2 в 7 степени
i=7
40960*7=286720 бит</span>
18.
A. Является.
B. Является(однострочный)
C. Не является.
D. Является.
E. Не является.
Ответ: Вообще, если читать задание, то, наверное, требуется выбрать один вариант ответа, но здесь их 2: С, E
19.
Точка с запятой.
Ответ: A