Question

4. Що буде результатом виконання даного циклу?

s:=1; a:=1;

for i:=1 to 3 do

begin

s:=s*a; a:=a+1;

end;

Edit1.Text:=IntToStr(s);

​

Answer 1

i = 1

s = s * a = 1 * 1 = 1

a = a + 1 = 1 + 1 = 2

i = 2

s = s * a = 1 * 2 = 2

a = a + 1 = 2 + 1 = 3

i = 3

s = s * a = 2 * 3 = 6

a = a + 1 = 3 + 1 = 4

Ответ: будет выведено значение переменной s, т.е. 6