Как можно решить 9 задание в ОГЭ другим способом? Вот задача: Var s, n: integer; Begin s...

Question

Как можно решить 9 задание в ОГЭ другим способом?
Вот задача:

Var s, n: integer;
Begin
s := 2;
For n := 2 to 5 do
s := s + n*2;
Writeln(s);
End.

Как то можно что-то в степень возвести, а что?? Чтоб долго таблицу не писать

Answer 1

1) s=2    n=2  s:=2+4=6
2) s=6    n=3  s:=6+6=12
3) s=12  n=4  s=12+8=20
4) s=20  n=5  s=20+10=30

При каждом шаге будем получать
6_12_20_30...
Видим закономерность
2*3_3*4_4*5_5*6...


Var
s,s1,n: integer;
Begin

writeln('Старый код');
s := 2;
For n := 2 to 5 do
begin 
Write('s= ',s); 
s := s + n*2; 
Write('  n= ',n); 
Writeln('  s= ',s);
end;


writeln;
writeln('Новый код');
for n:=2 to 5 do 
begin   
s:=n*(n+1);   
write('n= ',n);   
writeln('  s= ',s); 
end;
End.

Comments

а тут умножение

---

помню, как нам препод показал как это делать (похожее), но я сейчас вообще ничего не помню

---

Какое число меняется? S?

---

просто, если посмотреть весь цикл, это выглядит так

---

S + 2*2 + 2*3 + 2*4 + 2*5 = S + 2*( 2+3+4+5 )

---

S + 28

---

Var s, n: integer;
Begin
s := 2;
For n := 2 to 5 do
s := s + 2;
Writeln(s);
End.

---

Ответ 10?

---

Я не совсем понимаю. Тебе нужны промежуточные ответы? Какая переменная не константа, чтобы от нее и искать?

---

В смысле? Просто надо найти s