Question

Программа в PascalABC.NET. Вычислить сумму квадратов чисел первой сотни.

Answer 1

Vara,s:integer;begins:=0;a:=1;while a<>100 do begins:=s+(a*a);write(s,',');a:=a+1;end;end.

Answer 2

Program SummaKv;

var
  n, i: integer;

begin
  n := 0;
  for i := 1 to 100 do
    n := n + sqr(i);
  writeln('Сумма квадратов первой сотни чисел = ', n);
end.

Здесь квадрат числа 100 так же включается в сумму.

Answer 3

Для вычисления суммы квадратов чисел от 1 до 100 в PascalABC.NET, вы можете воспользоваться следующей программой:

pascalCopy code
program SumOfSquares;

var
  i, sum: integer;

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

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