Заполните ячейки а1, а2, а3 электронной таблицы - вопрос №6824982123 от Rj7 27.03.2020 15:43

Question

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

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