Program ff;
var
summ, count_terms:integer;
begin
summ:=0;
count_terms:=0;
while summ<>324 do
begin
summ:=summ+4;
count_terms:=count_terms+1;
end;
Writeln('Кол-во слагаемых: ',count_terms);
readln();
end.
В..........................................................................
2б в 16 с.с. переводишь в 2 с.с. : 101011
101011 в 2 с.с. = 43 в 10 с.с.
111 в N с.с. приравниваешь к 43 в 10с.с.
т.к. во всех разрядах числа 111 стоят единицы, можно число разложить как N^2 + N^1 + N^0 = 43
N^2 + N + 1 =43
N^2 + N = 43-1
а дальше метод подбора
N= 6