То средние значение от B3 до B8 поделим на 2
240\6=40 это ответ выполненный после твоей формулы
Лукас мне:3
Alt+Tab можно удерживать видя последовательность окон
Var M, N, sumN: integer;
begin
readln(N);
M := N;
sumN := 0;
while (M > 0) do
begin
inc(sumN, M mod 10);
M := M div 10;
end;
M := (N div sumN + 1) * sumN;
if (M < 2*N) then
writeln(M)
else
writeln('нет')
end.