Количество цветов n = 2^i = 2^6 = 64
11111101=253
....................
Веб-форум - веб-приложение, для организации общения между пользователями, которое имеет следующую иерархическую структуру: Разделы - Темы - Сообщения. Отдельно взятая тема представляет по своей сути гостевую книгу. Также, внутри темы могут устраиваться опросы. Сообщению каждого пользователя другой пользователь может поставить оценку. На основании этих оценок а также общего количества сообщений и времени, проведенного пользователем на форуме, происходит подсчет и определение статуса пользователя. Информация предоставляется в виде сообщений, которые могут быть оформлены либо в табличной либо в древовидной форме. Ответы в древовидной форме подразумевают указание участником поста другого участника, на который он отвечает. На основании этих данных строится дерево ответов. В табличной форме ответы представлены просто в виде таблицы сообщений в открытой теме. Большинство форумов имеет систему личных сообщений, позволяющую зарегистрированным пользователям общаться индивидуально. Также, администратор форума может ограничить для незарегистрированных пользователей ряд функционала: к примеру закрыть доступ к определенным разделам форума, закрыть возможность писать ответы незарегистрированному пользователю или просматривать ссылки или файлы, прикрепленные к сообщениям. Как правило, на форуме существует сводка правил общения, за нарушение которых Администратор или Модераторы могут временно или навечно заблокировать вашу учетную запись.
<em>// PascalABC.NET 3.3, сборка 1555 от 21.10.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var a:=ReadArrInteger('Введите 35 целых чисел:',35);
a.OrderBy(x->x).Println.Reverse.Println
end.
<u>Пример</u>
Введите 35 целых чисел: 57 -31 -77 38 -22 39 -49 -85 22 46 -48 -5 46 -50 67 86 31 -90 -29 37 60 -89 31 -19 -31 -46 81 -56 -34 -33 -33 -59 -88 -25 83
-90 -89 -88 -85 -77 -59 -56 -50 -49 -48 -46 -34 -33 -33 -31 -31 -29 -25 -22 -19 -5 22 31 31 37 38 39 46 46 57 60 67 81 83 86
86 83 81 67 60 57 46 46 39 38 37 31 31 22 -5 -19 -22 -25 -29 -31 -31 -33 -33 -34 -46 -48 -49 -50 -56 -59 -77 -85 -88 -89 -90
Задание 1:
Var s,i,n : integer;
z: array [1..100] of integer;
Beginfor
i:= 1 to 8 do
Read (z[i]);
end.
Задание 2:
Var s,i,n : integer;
z: array [1..100] of integer;
BeginRead(n);
for i:= 1 to n do
Read (z[i]);
for i:= 1 to n do
begin
if z[i]<0 then s:= sqr(z[i]);
Write(s);
end;
end.
Задание 3:
Var s,i,n : integer;
z: array [1..100] of integer;
Begin
Read(n);
for i:= 1 to n do
Read (z[i]);
s:=0;
for i:= 1 to n do
if z[i]>10 then s:= s+1;
Write('koll=', s);
end.