// PascalABC.NET 3.1, сборка 1230 от 27.04.2016 begin var n:=ReadInteger('n='); Writeln('Сумма квадратов от 1 до ',n,' равна ', 1.To(n).Select(x->x*x).Sum) end.
Тестовое решение n= 152 Сумма квадратов от 1 до 152 равна 1182180
1 подсчитать количество (n) символов в введенном предложении 2 организовать цикл (i=1)с количеством циклов n-1 3 в теле цикла ввести условие / если (функция выделения первого символа (i)) неравно " "(пробел) И (функция выделения последующего символа (i+1)) равно " " то включаем счетчик r=r+1 / 4 короче нужно искать совпадение символ-пробел, но есть проблема с последним символом если этот символ не пробел то слово не зачтется для этого нужно одно условие если (функция выделения последнего символа (n))неравно " " то r =r+1
begin
var n:=ReadInteger('n=');
Writeln('Сумма квадратов от 1 до ',n,' равна ',
1.To(n).Select(x->x*x).Sum)
end.
Тестовое решение
n= 152
Сумма квадратов от 1 до 152 равна 1182180