1) Вычисляем длины всех его сторон
program ddd;
var i,n,s,k:integer;
begin
write('Введите n: ');
readln(n);
s:=0; k:=0;i:=1;
while s<=n do
begin
s:=s+i;
writeln(i);
inc(i);
inc(k);
end;
writeln('Необходимо ',k,' слагаемых; сумма равна ',s );
end.
14_5+x=24_7
Переводим оба числа в 10-ую систему счисления (аналогично переводу в 2-ую, 8-ую, 16-ую)
24_10+x=33_10
x=9

1, 1, 2, 3, 5, 8, 13, 21, 34, 55, 89, 144, 233, 377, 610, 987, 1597, 2494, ...
Вариантов записать огромное количество, но если нужно с минимальным количеством слагаемых, то:
<u>2013=1597+377+34+5</u>
<span>Сведения о чем-либо, независимо от формы их представления.</span>