<em>// PascalABC.NET 3.2, сборка 1425 от 22.04.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var a:=ArrFill(ReadInteger('n='),0);
a[0]:=1; a[a.Length-1]:=1; a.Println;
end.
<u>Пример</u>
n= 10
1 0 0 0 0 0 0 0 0 1
Хост(Хостинг). Компьютер или клиент-сервер подключенный к сети от которого зависит работа какого-либо интернет ресурса.( либо какого либо игрового мультиплеерного сервера )
<span>Фраза "ИНФОРМАЦИОННЫЕ ТЕХНОЛОГИИ" содержит 25 символов. Если на 1 символ отводить до 4-х сантиметров, то будет вполне достаточно одной биты метровой длины.</span>
Var
i, c,t:integer;
A: array[0..9] of integer;
Begin
A[0]:=6;
A[1]:=7;
A[2]:=5;
A[3]:=8;
A[4]:=3;
A[5]:=2;
A[6]:=0;
A[7]:=1;
A[8]:=9;
A[9]:=4;
c:=0;
for i:= 0 to 9 do //ошибка либо в условии либо в коде
if A[i]<A[0]
then
Begin
c:=c + 1;
t:=A[i];
A[i]:= A[0];
A[0]:= t;
end;
writeln('c= ', c);
readln;
<span>end.
Ответ: c=4
</span>
Безбумажная технология - технология накопления, подготовки и обмена информацией с использованием компьютерной техники и средств связи.