Екатерина
5 год назад
необходимо реализовать в vb.netДано натуральное число. Верно ли, что оно начинается и заканчивается одной и той же цифрой. Либо,кто шарит, не могу найти ошибку, выдает правильно только однозначность и какое бы число не ввела - неодинаково.Dim n, a, b As Singlen = Val(TextBox1.Text)a = nIf n < 10 ThenTextBox2.Text = "Число однозначное"ElseDon = b Mod 10a = a / 10Loop Until a <= 10If n = b Then TextBox2.Text = "верно"If b <> a Then TextBox2.Text = "неодинаково"End IfEnd Sub
ОТВЕТЫ
Живка
Oct 24, 2020
n = b Mod 10 меняете на b = n Mod 10
a = a / 10 меняете на a = a 10
Loop Until a <= 10 меняете на Loop Until a < 10
If n = b Then TextBox2.Text = "верно" меняете на If a = b Then TextBox2.Text = "верно"
a = a / 10 меняете на a = a 10
Loop Until a <= 10 меняете на Loop Until a < 10
If n = b Then TextBox2.Text = "верно" меняете на If a = b Then TextBox2.Text = "верно"
568
Смежные вопросы:
