Дано натуральное трехзначное число.Определить цифры этого числа (K, L, M)-Visual Basic - VB

  1. Дано натуральное трехзначное число. Определить цифры этого числа (K, L, M) и выяснить, можно ли построить произвольный треугольник K, L, M. Пожалуйста!!


textual

Код к задаче: «Дано натуральное трехзначное число.Определить цифры этого числа (K, L, M)-Visual Basic - VB»

Private Sub Form_Load()
Dim s As String, K As Integer, L As Integer, M As Integer
s = InputBox("Input Number")
K = Val(Mid$(s, 1, 1))
L = Val(Mid$(s, 2, 1))
M = Val(Mid$(s, 3, 1))
If (K < L + M) And (L < K + M) And (M < K + L) Then
MsgBox "Yes, triangle exists!"
Else
MsgBox "No triangle ("
End If
End Sub

СДЕЛАЙТЕ РЕПОСТ

10   голосов, оценка 4.000 из 5



Похожие ответы
  1. Доброго дня, товарищи-программисты. Имеется задача: «Дано натуральное число n. Можно ли его представить в виде суммы квадратов трех натуральных чисел? Если можно, то вывести на экран такие тройки x, y и z натуральных чисел, что x2 + y2 + z2 = n. Решения, которые получаются перестановкой x, y и z, считать совпадающими». Не прошу решать задачу полностью, только лишь подкинуть идею, как исключить вариант с перестановкой.

  1. Доброго времени суток всем, ребята, помогите пожалуйста нам начали преподавать Visual basic 6.0, Pадача элементарная а реализовать я ее не могу, птм что ну не понимаю я функциональное программирование условие: Дано натуральное число. Верно ли, что в данном числе цифра А встречается более двух раз. А задается

  1. Определить, является ли введённое натуральное число совершенным (совершенное число равно сумме своих младших делителей, например 6=1+2+3

  1. Задано натуральное число n<10000. Найти сумму цифр этого числа

  1. Дано натуральное число n. Проверить, есть ли в записи числа три одинаковые цифры (n < 9999).

  1. Дано натуральное число п. Проверить, будут ли все цифры числа различными.