Заполните ячейки а1, а2, а3 электронной таблицы любыми - вопрос №6824080123 от kirllakylov 20.02.2022 11:19

Question

Информатика: Заполните ячейки а1, а2, а3 электронной таблицы любыми числами. составьте программу на языке vba, которая замениткаждое из этих чисел квадратным корнем из числа. отрицательные числа замените текстом преобразование невозможно .

kirllakylov · Answer

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...