Не знаю как решить с помощью дерева, но ответы дать могу,
52) сумма чисел будет равна 50
71) будет выведено 10 звёздочек
Внизу результаты выполнения двух программ соответственно, может чем-то поможет.
Var
a:array[1..100,1..100] of longint;
n,m,i,j:longint;
begin
readln(n);
for i:=1 to n do for j:=1 to n do
begin
if not odd(n) and((i=n div 2)or(i=(n div 2)+1)) then a[i,j]:=1 else
if odd(n) and( i=(n div 2)+1) then a[i,j]:=1 else
if i<n div 2 then a[i,j]:=0 else
if i>n div 2 then a[i,j]:=2;
end;
for i:=1 to n do
begin
for j:=1 to n do write(a[i,j]);
writeln;
end;
end.
<span>
</span>
Var s : string;
i, k : integer;
begin
Readln(s);
k:=0;
for I := 1 to Length(s) div 2 do
if s[i]= s[Length(s)-k] then k:=k+1;
if k= Length(s) div 2 then Write('Полиндром') else Write('Не полиндром'); Readln
end.
Ответ: в)
Вот так подробнее: <span>2^16</span> =65536
Из какой переводить число 112 в восьмиричную? Если из десятичной, то вот:
Переводим целую часть 112(в десятичной) в 8-ую систему последовательным делением на 8:
112/8 = 14, остаток: 0
14/8 = 1, остаток: 6
1/8 = 0, остаток: 1
Ответ: 160.