Sub koren()For i = 1 To 3If Cells(i, 1) < 0 ThenCells(i, 1) = «Преобразование невозможно»ElseCells(i, 1) = Sqr(Cells(i, 1))End IfNext iEnd Sub
Скачать приложение к ответу
Sub koren()For i = 1 To 3If Cells(i, 1) < 0 ThenCells(i, 1) = «Преобразование невозможно»ElseCells(i, 1) = Sqr(Cells(i, 1))End IfNext iEnd Sub
Скачать приложение к ответу