Написать программу, которая считает сумму квадрататов первых n натуральных чисел.

P.s. и лучший ответ не помешает. var i,s,n: integer; begin       read(n);       for i: =1 to n do s: =s+i*i;       writeln(s); end.

#include < iostream> #include < iomanip> #include < cmath> using namespace std; int main() {     int a,b;     cin > > a > > b;     int ma = abs(a), mb = abs(b);     cout < < ma-mb < < endl             < < ma+mb < < endl             < < ma*mb < < endl             < < fixed < < setprecision(3) < < float(ma)/mb < < endl;     return 0; }

Var s,tmp: string;       i,n: integer;       flag,word: boolean; function letter (const let: char): boolean;   begin     if ((let> ='a') and (let< ='z')) or ((let> ='a') and (let< ='z')) then letter: =true       else letter: =false;   end; begin   readln (s);   s: =s+' ';   n: =length(s);   flag: =false;   for i: =1 to n do     begin       if (letter(s[i])) and (not flag)  then       begin            flag: =true;         tmp: ='';         word: =false;       end else if (not letter(s[i])) and (flag) then       begin          flag: =false;         if (word) and (not (tmp='')) then writeln (tmp);       end;       if (flag) then       begin            tmp: =tmp+s[i];           if (s[i]='k') then word: =true;       end;       end; end.