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

M8ilen    1   22.04.2021 11:44    0