Program Program1;
Var
a:array [1..10] of integer;
i:integer;
rez:boolean;
begin
randomize;
write('Массив: ');
for i:=1 to 10 do
begin
a[i]:=random(5);
write(a[i],',');
end;
rez:=false;
for i:=1 to 10 do
begin
if (i>1) and (a[i]=a[i-1]) then rez:=true;
if (i<10) and (a[i]=a[i+1]) then rez:=true;
end;
if rez then writeln(' Есть одинаковые соседние элементы') else
writeln(' Нет одинаковых соседних элементов');
<span>end.</span>
Новый процессор(Например Intel Core i7 )
SSD диски вместо HDD ускоряют работу компьютера в разы.
Изменение персонализации компьютера.
Программы более стабильных версий.
Если Женя(Ж) не любит играть на скрипке то остается 2 варианта .Ему может нравится играть в футбол или играть в компьютерные игры.Задача может решаться двумя способами:
а)Женя любит компьтерныеигры,а Витя играет на скрипке.
б)Женя любит футбол ,а Витя любит комп. игры.
1)
1010₈ = 1 000 001 000₂ - 10 цифр
101₁₆ = 1 0000 0001₂ - 9 цифр
Ответ: 100010 100000001 1000001000
2а)
203891₁₆ = 10 0000 0011 1000 1001 0001₂ =
1 000 000 011 100 010 010 001₂ = 10034221₈
2б)
2746735255₈ = 10 111 100 110 111 011 101 010 101 101₂ =
10111100110111011101010101101₂