PASCAL
program aa;
var a : integer;
begin
writeln('Введите день недели');
Read(a);
If (a < 1) or (a>7) then writeln('Такого дня не существует');
If (a > 0) and (a<6) then writeln('Рабочий день');
If a=4 then writeln(четверг');
end
<span>№ 14
i=4
N=2^i=2^4=16
Ответ: 16
</span>№ 15
N=2^i
15=2^i
i=примерно 3,900бит
№ 16
без учета ковычек и точки в конце, 27Байт
1 символ=1Байт=8бит
№ 17
Возьмем число 31 т.к в 1м месяце 30-31 дней (28-29 в феврале)
2 в степени 5=32
Ответ: 5 бит
№ 18
31 дней * 12 месяцев* 24ч/c=8928≈13бит
№ 19
N=2^b
2=2^1
b=1бит
№ 20
K=15, N=256=2^8
L=k*n=15*8бит=120бит или 15 Байт
№ 21
N=2^b
Мульти - 8=2³; b=3; 200*3=600бит
Пульти - 64=2⁶; b=6; 50*6=300бит
600-300=300 бит, на столько бит сообщение племени Мульти>Пульти
№ 22
3,5КБ=28672бит
b=28672бит/14336=2бит
N=2^b
2²=4 Символа в алфавите
№ 23
1/32МБайт=32Кбайт=32*1024=32768Байт=32768*8бит=262144бит
Один символ = 262144/65536=4бит
N=2^b
b=4
N=2⁴=16
Массив создается и заполняется рандомными числами до 10
var
massive: array[1..20] of Integer;
i:Integer ;
summ:integer;
begin
WriteLn('все элементы');
for i:=1 to 20 do
begin
massive[i]:=Random(100);
write(massive[i],', ');
end;
for i:=1 to 20 do
begin
if massive[i] mod 5 = 0 then
summ:=summ+massive[i];
end;
writeln('сумма: ',summ);
end.
Двойное отрицание же. Просто D.