Question

Составьте программу вычисляющую сумму квадратов всех чисел от 1 до n

Answer 1

Var
a: Real;
i,n: Integer;
Begin
WriteLn('Введите ваше ЭН'); ReadLn(n);
a:=0;
for i:=1 to n do
a:= a + sqr(i);
end;
WriteLn('Сумма квадратов равна=',a);
ReadLn;
end.

Answer 2

Вот пример программы на языке Pascal, которая вычисляет сумму квадратов всех чисел от 1 до n:

program SumOfSquares;
var
  n, i, sum: integer;
begin
  write('Введите число n: ');
  readln(n);
  
  sum := 0;
  for i := 1 to n do
  begin
    sum := sum + i * i;
  end;
  
  writeln('Сумма квадратов всех чисел от 1 до ', n, ' равна ', sum);
end.

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

Например, если пользователь вводит число n = 5, программа вычислит сумму квадратов чисел от 1 до 5: 1^2 + 2^2 + 3^2 + 4^2 + 5^2 = 55.