Смотрите решение ниже. Не забудьте перевести биты в байты.
Program n_1;
var a, b, i, n: integer; c: boolean;
begin
c:=true;
read(n, a);
for i:=2 to n do begin
read(b);
if b>=a then c:=false;
a:=b;
end;
if (c=true) then writeln('Поседовательность убывающая')
else writeln('Поседовательность не является убывающей');
end.
Это для строго убывающей последовательности. Если требуется для невозрастающей - замени if b>=a then c:=false; на b>a then c:=false;
4 Вариант
1. первый пример ¬0∨¬0=1 второй пример (1∨0)∧(0∨0)=0.
2. ((0∧0)∨0)∧(1∨A)
(0∧0)=0; (0∨0)∧(1∨A); 0∧(1∨A)=0; (каким бы не было значение 'А' ответ будет равен 0;
программa, которая выводит в столбик цифры введённого числа
Второе задание с помощью формул очень просто Раскрываем скобки(как в алгебре) и получаем копию правой части
Можно показать с помощью кругов