программа для выведения числа в обратном порядке
(1г /\ Пс) --> 3c = не(1г /\ Пс) \/ 3c = не(1г) \/ не(Пс) \/ 3г = 1с \/ Пг \/ 3г
1с: <span>Марс
Пг: </span><span>Облако
3г: </span><span>Энот
Ответ: </span><span>Экран.
На проверку?!?</span>
Все элементы будут равны единице.
Сначала они будут заполнены значением, большим своего индекса на 1, а потом каждому элементу, начиная со второго (который А[1]) будет присвоено значение предыдущего элемента и 1 распространится везде.
Для проверки была написана программа с отладочной выдачей.
var
a:array[0..10] of integer;
i:integer;
begin
for i:=0 to 10 do begin a[i]:=i+1; Write(a[i],' ') end;
Writeln;
Write(a[0],' ');
for i:=1 to 10 do begin a[i]:=a[i-1]; Write(a[i],' ') end
end.
Результаты
1 2 3 4 5 6 7 8 9 10 11
1 1 1 1 1 1 1 1 1 1 1
Ответ: 3)
Формула количества информации
<span>N-кол-во цветов, i-кол-во бит на одну точку</span>
For i:=1 to n-1 do for j:=i+1 to n do if a [ i ] < a [ j ] then begin b:=a [ i ]; a [ i ] := a [ j ] ; a [ j ] := b; end; вроде так