Порівняйте вірш Лесі Українки "Стояла я і слухала весну" та "Блакитна Панна" М.Вороного за самостійно дібраними критеріями

1. Для цикла For есть решение выложенное выше  от Srzontmp.

2. Почти ничего не меня получим код для цикла while:
var
  i, n, k: integer;
begin
  i := 2;
  readln(n);
  while i <= n div 2 do begin
    if (n mod i) = 0 then k := i;
    i:=i+1;
    end;
  writeln('наибольший делитель ', n, ' = ', k);
end.

3. Аналогично для цикла Repeat:
var
  i, n, k: integer;
begin
  i := 2;
  readln(n);
  repeat
    if (n mod i) = 0 then k := i;
    i:=i+1;
  until i> n div 2;
  writeln('наибольший делитель ', n, ' = ', k);
end.

#include <iostream>

using namespace std;

int main()

{

   int a1 = 2;

   int d = -2;

   int amount = 0;

   int n;

   cin >> n;

   for (int i = 0; i < n; i++)

   {

       amount += a1;

       cout << a1 << " ";

       a1 += d;

   }

   cout << endl << amount;

}

Объяснение:

#include <iostream> // Библиотека ввода - вывода

using namespace std; // Пространство имён

int main()

{

   int a1 = 2; // Первый элемент = 2

   int d = -2; // Разность = -2

   int amount = 0; // Сумма = 0

   int n; // Создание целочисленной переменной n

   cin >> n; // Ввод с клавиатуры

   for (int i = 0; i < n; i++) // Идём от нуля до n

   {

       amount += a1; // Суммируем элемент

       cout << a1 << " "; // Выводим элемент

       a1 += d; // Узнаём следующий элемент прогрессии

   }

   cout << endl << amount; // Выводим сумму

}