1qazse4 1 1qazse4 Регистрация 13 Мар 2013 Сообщения 70 Репутация -3 Спасибо 0 Монет 0 24 Янв 2017 #1 i:=5; while i<0 do begin A:=sin(i*Pi/6); i:=i+1; end;