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.

Answer 2

S + 28

Answer 3

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

Answer 4

Ответ 10?

Answer 5

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

Answer 6

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