Из трех введенных с клавиатуры чисел возвести в квадрат положительные

@Orr0z · Регистрация: 15.04.2015

Author24 — интернет-сервис помощи студентам

№6. Составьте программу, которая из трех введенных с клавиатуры чисел возводит в квадрат положительные, а отрицательные оставляет без изменения.

@FlegmaSpirit · 15.04.2015, 17:06

VB.NET

        Dim a As Double = Inputbox("Введите первое число")
        Dim b As Double = Inputbox("Введите второе число")
        Dim c As Double = Inputbox("Введите третье число")
 
        If a > 0 Then a = a ^ 2
        If b > 0 Then b = b ^ 2
        If c > 0 Then c = c ^ 2
 
        MsgBox("Ваши числа: " & a & ", " & b & ", " & c)

@Orr0z 0 / 0 / 0 Регистрация: 15.04.2015 Сообщений: 10
		1
	Из трех введенных с клавиатуры чисел возвести в квадрат положительные 15.04.2015, 14:17. Показов 2605. Ответов 1 Метки нет (Все метки) №6. Составьте программу, которая из трех введенных с клавиатуры чисел возводит в квадрат положительные, а отрицательные оставляет без изменения. 0

	15.04.2015, 17:06

Опции темы

Из трех введенных с клавиатуры чисел возвести в квадрат положительные

Решение