Пожалуйста срочнооо Var i, s, t: integer; Begin s:=0; t:=1; For i:=1 1 to 3...

Question

Пожалуйста срочнооо Var i, s, t: integer; Begin s:=0; t:=1; For i:=1 1 to 3 do Begin s:=s+t; t:=t+i+2; End; Write(s); End.

Answer 1

Відповідь:

s=13

Пояснення:

1 шаг і=1 тогда s=0+1=1; t=1+1+2=4;

2 шаг i=2 тогда s=1+4=5; t=4+2+2=8

3 шаг i=3 тогда s= 5+8=13; t=8+3+2=13

Ответ s=13