Определите значение переменной s после выполнения операторов S:=1; i:=1; While i<=8 do Begin i:=i+3; S:=s*i; End;

Перед входом в цикл while переменная i = 1.

В цикле i изменит значение три раза, пока не станет больше 8:

i = 1 + 3 = 4;

i = 4 + 3 = 7;

i = 7 + 3 = 10.

Войдя в цикл со значением 1 переменная s будет последовательно принимать значения:

s = 1 * 4 = 4;

s = 4 * 7 = 28;

s = 28 * 10 = 280.

Ответ: s = 280.