Двузначное число дается. определите, равен ли квадрат этого числа расчетной сумме кубов его чисел. например, 48 является правильным для числа, а 52 числа являются отрицательными. как вычислит и отчет как вычислен.

У меня это уже было я из тетрадки перепишу  
2) 100001100 = 2^8 + 2^3 + 2^2 = 256 + 8 + 4 = 268
3) 137 = 10001001 (нужно число делить на 2, записывая остаток, и так до тех пор пока число уже нельзя будет делить, потом записываем остатки в обратном порядке)
137 / 2 = 68 ( остаток 1)
68 / 2 = 34 (остаток 0)
34 / 2 = 17 (остаток 0)
17 / 2 = 8 (остаток 1)
8 / 2 = 4 (0)
4 / 2 = 2 (0)
2 / 2 = 1 (0)
Теперь надо записать остатки в обратном порядке = 10001001
4) Как я понял 8 и 16 это систему счисления, если да то:
а)151 = 1 * 8^2 + 5 * 8^1 + 1 * 8^0 = 64 + 40 + 1 = 105
б) 2С = 2 * 16 + 12(С) = 32 + 12 = 44
ну блин как то так наверное         

1.
Program TuKpa6;const n=5;const m=5;varA:array[1..n,1..m] of integer;i,j:integer;BEGINfor i:=1 to n do  begin    for j:=1 to m do      begin        a[i,j]:=10*i+j;      end;  end;writeln('HaIIgeHo:');for i:=1 to n do  begin    for j:=1 to m do      begin        if (odd(a[i,j])) and (a[i,j]<40) and (a[i,j] mod 5 = 2) then          begin            writeln('a[',i,j,']=',a[i,j]);          end;      end;  end;writeln('koHeII,');END.

2.
Program TuKpa6;const n=5;varA:array[1..n] of integer;i,sum:integer;BEGINsum:=0;for i:=1 to n do {забиваем массва}  begin  a[i]:=i;  end;for i:=1 to n do {суммируем чётные элементы}  begin    if not (odd(a[i])) then      begin        sum:=sum+a[i];      end;  end; writeln('HaIIgeHo:');for i:=1 to n do  begin    if i=4 then      begin        a[i]:=sum;        writeln('a[',i,']=',a[i]);      end;  end;writeln('koHeII,');END.