Сколько различных решений имеет уравнение?
((j → k) → (m ∧ n)) ∧((j ∧¬k) → (¬m ∨¬n))∧ (¬m∨ ¬n ∨ k ∨l)=1
где j, k, l, m, n – логические переменные? в ответе не нужно перечислять все
различные наборы значений j, k, l, m и n, при которых выполнено данное равенство.
в качестве ответа вам нужно указать только количество таких наборов.​

Пока 1,2,3,4,6 решил Вам, позже ещё решу, если тут никто больше не
1.

456,78(10)=4*10^2+5*10^1+6*10^0+7*10^-1+8*10^-2

2.

10011,011(2)=1*2^4+0*2^3+0*2^2+1*2^1+1*2^0+0*2^-1+1*2^-2+1*2^-3

3.

Иерархическая структура памяти ЭВМ - является традиционным решением проблемы хранения больших объемов данных. На самом верху иерархии находятся регистры процессора. Доступ к регистрам осуществляется быстрее всего. Дальше идет кэш-память, объем которой сейчас составляет от 32 Кбайт до нескольких мегабайтов. Затем следует основная память, которая в настоящее время может вмещать от 16 Мбайт до десятков гигабайтов. Затем идут магнитные диски и, наконец, накопители на магнитной ленте и оптические диски, которые используются для хранения архивов.

4.

Program Perimeter_of_a_rectangle;

var
A: integer;
B: integer;
PERIMETER: integer;

begin
write('Введите сторону А: ');
read(A);
write('Введите сторону B: ');
read(B);
PERIMETER:=A*2+B*2; // Вычисление периметра прямоугольника
write('Периметр прямоугольника равен: '+PERIMETER);
end.

6.

Program A_or_B;

var
A, B: longint;

begin
write('Введите число A: ');
read(A);
write('Введите число B: ');
read(B);
if A > B then
writeln('Число А больше числа В');
if B > A then
writeln('Число В больше числа А');
end.

Надеюсь удачи :)

Program array15numbers;
var a:array [1..15] of integer; b:array [1..15] of real; i:integer;
begin
for i:=1 to 15 do
begin
a[i]:=-20 + Random(41); {почему не 40? такова особенность паскаля}
writeln(a[i]); {чтобы увидеть созданный массив}
end;
writeln(); {нужен, чтобы сделать отступ}
for i:=1 to 15 do
begin
if abs(a[i] mod 2) = 1 then {abs - модуль от числа, mod - остаток от деления}
begin
b[i]:=a[i]*3;
end
else
begin
b[i]:=a[i]/2;
end;
writeln(b[i]);
end;
end.

Остались вопросы? - спрашивай в комментах.
Нужно более подробное объяснение - пиши в лс vkcom/ilyahard