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.