// PascalABC.NET 3.1, сборка 1239 от 08.05.2016
begin
var a:=ArrRandom(ReadInteger('n='),1,100); a.Println;
Writeln('Четных элементов: ',a.Where(x->x.IsEven).Count)
end.
<u><em>Тестовое решение</em></u>
n= 15
48 48 85 94 39 45 22 16 75 51 85 97 91 31 92
Четных элементов: 6
Предположим, что последовательность же задана, то есть вводить ее мы не будем. Последовательность представляет собой массив чисел а.
n:=1; k:=0;
for i:=1 to 100 do if (a[i]<0) then k:=k+1; проверяем наличие отрицательных
if (k=0) then writeln("Отрицательных нет.") else begin
for i:=1 to 100 do if (a[i]<0) then n:=a[i]; находим хотя бы один отрицательный
for i:=1 to 100 do if ((a[i]<0) AND (a[i]>n) then n:=a[i]; находим наибольший отрицательный
writeln("Наибольшее из отрицательных чисел данной последовательности - ",n);
end;
end.
Одна цифра восьмеричного числа = три числа в двоичной системе.
т.к 8 = 2^3. число должно быть четырехзначным, следовательно в двоичной системе это число должно содержать 12 цифр (или 4 триады, т.е 4 группы цифр по три знака в каждой)
максимальное четырехзначное число в восьмеричной системе, это - 7777, в двоичной записи оно будет выглядеть вот так : 111 111 111 111. наибольшее четырехзначное восьмеричное число, двоичная запись которого содержит 4 нуля, в двоичной системе будет выглядеть так - 111 111 110 000, т.е мы заменили единицы 4 нулями и при этом, поставили их в младшие разряды, т.к по условию нам нужно наибольшее число.
если перевести это число в восьмеричную систему, получим 7760
ответ : 7760.
Пятеричная система счисления, ибо 4-ка есть.
AV(~A)
V-дизъюнкция(максимум)
~A-не А
Максимум из А и (не А)(А может быть только 0 или 1) всегда равен 1.
AV(~A)=1
Ответ:AV(~A)=1