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