Даны 3 действительных числа, возвести в квадрат те, которые неотрицательны - VB
Формулировка задачи:
Даны 3 действительных числа,возвести в квадрат те,которые неотрицательны
Решение задачи: «Даны 3 действительных числа, возвести в квадрат те, которые неотрицательны»
textual
Листинг программы
Dim X as long Dim I(1 to 3) as Double 'V Здесь заполните ваш массив с тремя числами I(1) = -100 I(2) = 20 I(3) = 5 for X=1 to Ubound(I) If I(x) > 0 Then I(x) = I(x) ^ 2 End If next
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д