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

Answer 2

Код, который вы предоставили, написан на Pascal и выполняет некоторые вычисления. Однако у вас есть ошибка в строке "For i:=1 1 to 3 do". Двойная единица не имеет смысла и должна быть исправлена.

Предполагая, что вы хотели написать "For i:=1 to 3 do", исправлю код:

pascalCopy code
Var i, s, t: integer;
Begin
  s := 0;
  t := 1;
  
  For i := 1 to 3 do
  Begin
    s := s + t;
    t := t + i + 2;
  End;
  
  Write(s);
End.

Этот код будет выполняться, вычислять значения и в конечном итоге выводить результат на экран.