Даны 10 чисел. найти сумму их квадратов

Какие десять чисел? напиши а то что именно решать непонятно(

Решение - во вложении. не забудьте разрешить исполнение макросов (сервис - макрос - уровень безопасности - средний и там же, в уровне безопасности, на вкладке "надежные издатели" установить птичку "доверять доступ к visual basic project". это - для ms office 2003. в более старших версиях ищите на ленте "разработчик" - vb. замечание. эта не рассчитана на школьников или учащихся колледжей, её уровень намного выше, я не понимаю тех преподавателей, кто задает подобные . я больше трех часов сидел над

Var   x: string;   arr: array of char; begin   readln(x);   arr : = x.split(' ')[1].tochararray();   system.array.reverse(arr);   writeln(length(arr), '   ', new string(arr)); end. var   c: array of integer : = (10, 20, 10, 30, 40, 50, 55, 1, 5, 9, 4, 3, 2);   r, q, s: real;   i, a, b: byte;     begin   q : = 1;   i : = 1;   r : = c.min();   while (i < length(c)) do   begin     q *= c[i];     i += 2;   end;   readln(a, b);   s : = b - a - 1;   writeln('t = ', (r / q + 1) + s); end. const   k = 5;   p = 5; var   f: array [1..k, 1..p] of string;   o: real;   df: byte; begin   for i: byte : = 1 to k do   begin     for j: byte : = 1 to p do     begin       f[i, j] : = random(10, 99).tostring();       write(f[i, j]: 3);       if (j > = 7 - i) then       begin         o += integer.parse(f[i, j]);         df += 1;         f[i, j] : = '██';       end;     end;     writeln();   end;   writeln();   for i: byte : = 1 to k do   begin     for j: byte : = 1 to p do       write(f[i, j]: 3);     writeln();   end;   writeln(o / df); end.