ПОМОГИТЕ

Найти сумму квадратов всех целых чисел от 1 до 10. (цикл с предусловием)

Сумма квадратов целых чисел от 1 до 10 равна:

Посчитаем:

Ответ:

Пример программы с циклом с предусловием на Pascal:

pascal
program SummaKvadratov;

var
  i, sum: integer;

begin
  i := 1;
  sum := 0;

  while i <= 10 do
  begin
    sum := sum + i * i;
    i := i + 1;
  end;

  writeln('Сумма квадратов чисел от 1 до 10 = ', sum);
end.

Объяснение:

Сначала переменной i присваивается значение 1, потому что начинаем считать с числа 1.

Переменная sum равна 0, потому что в начале сумма еще ничего не содержит.

Цикл:

pascal
while i <= 10 do

означает: пока i меньше или равно 10, выполнять действия внутри цикла.

Внутри цикла строка:

pascal
sum := sum + i * i;

добавляет к сумме квадрат текущего числа.

Например:

pascal
1 * 1
2 * 2
3 * 3

и так далее до:

pascal
10 * 10

После каждого шага число i увеличивается на 1:

pascal
i := i + 1;

Когда i станет равно 11, условие i <= 10 станет ложным, и цикл завершится.

Итоговая сумма будет:

pascal
385