14 в двоичной системе будет 1100
101<span> + 1</span>100<span> = 10</span><span>001</span>
2) Процессора
(тут какой-то текст, потому что ответ должен быть не менее 20 символов)
Var a,max,sum:integer;
arr:array [0..2015] of integer;
begin
randomize;
max:=-500;
sum:=0;
for a:=0 to 2015 do begin
arr[a]:=random(1001)-500;
if max<arr[a] then max:=arr[a];
end;
write('максимальный элемент массива ==> ',max);
writeln();
if max mod 2 = 1 then begin
for a:=0 to 2015 do begin
if arr[a] mod 2 =1 then sum:=sum+arr[a];
end;
writeln('сумма чисел одинаковой чётности числу ',max,' = ',sum);
end;
sum:=0;
if max mod 2 = 0 then begin
for a:=0 to 2015 do begin
if arr[a] mod 2 =0 then sum:=sum+arr[a];
end;
writeln('сумма чисел одинаковой чётности числу ',max,' = ',sum);
end;
end.
Var i:integer;
begin
for i:=1 to 30 do
if i mod 2=0 then write(i,' ');
writeln;
for i:=10 to 20 do
if i mod 2=1 then write(i,' ');
end.
Не знаю как решить с помощью дерева, но ответы дать могу,
52) сумма чисел будет равна 50
71) будет выведено 10 звёздочек
Внизу результаты выполнения двух программ соответственно, может чем-то поможет.