Вопрос по информатике:
Ввести число. Если оно неотрицательно, вычесть из него 50, в противном случае прибавить к нему 100.
Трудности с пониманием предмета? Готовишься к экзаменам, ОГЭ или ЕГЭ?
Воспользуйся формой подбора репетитора и занимайся онлайн. Пробный урок - бесплатно!
- 24.01.2018 20:07
- Информатика
- remove_red_eye 6639
- thumb_up 59
Ответы и объяснения 1
Microsoft Visual Basic 2010(более ранние тоже прокатят)
Dim I As Single
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
I = Val(InputBox("Введите число"))
If I >= 0 Then
I = I - 50
Else
I = I + 100
End If
MsgBox(I)
End Sub
Просто на Basic
Dim I As Single
Input(I)
If I >= 0 Then
I = I - 50
Else
I = I + 100
End If
Print I
End
- 25.01.2018 12:24
- thumb_up 12
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.