Question

Посчитать сумму квадратов первых 10 чисел.(на паскале ришить)

Answer 1

Var sum,i:integer;
begin
for i:=1 to 10 do
sum:=sum+i*i;
writeln(sum);
end.

Answer 2

На Pascal код для вычисления суммы квадратов первых 10 чисел может выглядеть следующим образом:

program SumOfSquares;

var
  i, sum: integer;
  
begin
  sum := 0;
  for i := 1 to 10 do
  begin
    sum := sum + i * i;
  end;
  
  writeln('Сумма квадратов первых 10 чисел: ', sum);
end.

В этом коде мы используем переменную `sum`, чтобы хранить текущую сумму квадратов. Затем мы начинаем цикл `for`, который проходит от 1 до 10. На каждой итерации мы добавляем к `sum` квадрат текущего числа `i`.

В конце программы мы выводим результат на экран с помощью процедуры `writeln`.

Если запустить эту программу, она выведет следующий результат:

Сумма квадратов первых 10 чисел: 385

Таким образом, сумма квадратов первых 10 чисел равна 385.