1)
var
i,k:integer;
a:array [1..14] of integer;
begin
k:=0;
for i:=1 to 14 do
begin
a[i]:=random(46)-15;
write(a[i]:3);
if a[i] mod 2=0 then k:=i;
end;
if k>0 then
begin
for i:=k to 13 do a[i]:=a[i]+1;
a[14]:=0;
end;
writeln;
for i:=1 to 14 do write(a[i]:3);
end.
2)
var
i,k:integer;
a:array [1..14] of integer;
begin
for i:=1 to 14 do
begin
a[i]:=random(46)-15;
write(a[i]:3);
end;
for i:=1 to 7 do
begin
k:=a[i];
a[i]:=a[i+7];
a[i+7]:=k;
end;
writeln;
for i:=1 to 14 do write(a[i]:3);
end.
Если сравнивать объекты и их свойства между собой, то можно говорить о свойствах общих и отличительных.
Общие свойства объединять объекты в группу (группа – это множество объектов, где каждый объект является элементом этого множества). Отличительные свойства отличить один объект от другого.
Например, свойство «защищать ноги» – это общее свойство ботинок, сапог, сандалий и туфель. А вот свойство «хранить тепло» – это отличительное свойство зимней обуви, если сравнивать её с летней.
Информация бывает - Визуальная (зрение) и звуковая (слух).
Вкусовая, тактильная, обонятельная.
Основание системы счисления = 9-3 = 6
Проверка:
233(6) = 2*6^2+3*6^1+3 = 93(10)
41(6) = 4*6+1 = 25(10)
34(6) = 3*6+4 = 22(10)
51(6) = 5*6+1 = 31(10)
23(6) = 2*6+3 = 15(10)
25+22+31+15 = 93(10)
ответ: 6