Корень (корень(x) -3 * x + 8)
Program n1;
var i: integer;
sum: real;
begin
sum:=0;
for i:=1 to 100 do sum:=sum+i*i;
writeln(sum);
end.
Если я не ошибаюсь, то двоек здесь 1997, т. к если из 10 в степени 2000 вычесть 10 в степени 3, то получиться три нуля и 1997 двоек, а когда прибавляем 10 в степени 2017 количество двоек не увеличивается и не уменьшается
10 - это 3 в троичной системе счисления