По моим рассуждениям это: 3)7, была бы норм фотка то точно бы сказал.
<u>// PascalABC.NET 3.3, сборка 1634 от 14.02.2018</u>
<u>// Внимание! Если программа не работает, обновите версию!</u>
begin
var M:=ReadInteger('M=');
var (s,n):=(0,1);
while s<=M do begin
s+=n*n; n+=1
end;
Writeln('Сумма ',s)
end.
Возьми слово переписка
подбирай слова такие чтобы в них была буква п е р е п и с к а.
все!