Layahazh
6 год назад
Заполните ячейки А1, А2, А3 электронной таблицы любыми числами. Составьте программу на языке VBA, которая замениткаждое из этих чисел квадратным корнем из числа. Отрицательные числа замените текстом "преобразование невозможно".
ОТВЕТЫ
Бочин
Jul 6, 2019
Sub koren()For i = 1 To 3If Cells(i, 1) lt; 0 ThenCells(i, 1) = "Преобразование невозможно"ElseCells(i, 1) = Sqr(Cells(i, 1))End IfNext iEnd Sub
295
