Question

Виконайте фрагмент программи і вкажіть значення змінної S
Begin
S:=1; i:=1;
While i<4 do
Begin
i:=i + 1
S:=S * i;
End;
Edit1.Text:=FloatToStr(S);
End;

Answer 1

Ответ:

Объяснение:

1 проход i=1

i=1+1=2

s=1*2=2

2 проход i=2

i=2+1=3

s=2*3=6

3 проход i=3

i=3+1=4

s=6*4=24

вывод :  24