@Synergyst
Мыслитель
(8916)
6 месяцев назад
После integer должна идти ";", то есть у тебя ошибка.
Выведется 28, потому что for i := 2 to n do (цикл будет выполняться для значений i от 2 до 4 (2, 3, 4) + S := S + 2 * i; - на каждой итерации цикла к переменной S прибавляется удвоенное значение i), и итог:
i = 2: S = 10 + 2 * 2 = 14
i = 3: S = 14 + 2 * 3 = 20
i = 4: S = 20 + 2 * 4 = 28
Var S, n, i: integer
Begin
S:=10;
n:=4;
for i:=2 to n do
S:=S+2*i;
write(S);
end.