Числа

[Info]

Помогите пожалуйста решить задачу.

Нужно узнать есть ли в трехзначном числе одинаковые числа.

[GAGArin]

If (intA mod 10 = intA\100) or ((intA\10) mod 11= 0) or (intA mod 100 mod 11 =0)
intA - твое число

[Info]

GAGArin
Спасибо.

[Info]

Помогите пожалуйста еще с одной задаченй на числа.

Даны пять десятичных чисел вывести их в формате "Пять цифр в целой части и две в дробной".
Например
298,456785 = 29845,67

[vvs_adm]

Ну... если б четыре хотя б было... А так практически неразрешимо

[Info]

vvs_adm
А как сделать для четырех.

[vvs_adm]

Ну сначала нужно сделать для трех и потом по аналогии добавить четвертое.

[Kovu]

Может не очень быстрый код зато работает

Код: Выделить всё


Private Sub Form_Load()
Dim Temp1 As String, Temp2 As String, result As String, symb As Long
result = "343567,8678"
Temp1 = Left$(result, InStr(1, result, ",") - 1)
If Len(Temp1) <= 5 Then
Temp2 = Right$(result, Len(result) - InStr(1, result, ","))
symb = 5 - Len(Temp1)
Temp1 = Temp1 + Left$(Temp2, symb)
Temp2 = Mid$(Temp2, symb + 1, 2)
Else
result = Temp1 + Right$(result, Len(result) - InStr(1, result, ","))
Temp1 = Left$(result, 5)
Temp2 = Mid$(result, 6, 2)
End If
result = Temp1 + "," + Temp2
End Sub


[alibek]

Kovu, да, микроскопом тоже можно гвозди забивать.

[GAGArin]

NewDbl = Int((OldDbl * 10 ^ (6 - Len(Str(Int(OldDbl))))) * 100) / 100
НЕ будет работать если перед запятой нуль. Все остальное вроде подходит.

OldDbl - старая переменная
NewDbl - новая

А думать как заставить работать с нулем мне лениво... К тому же вдруг там справа еще нули, еще больше думать придеться

[Kovu]

Kovu, да, микроскопом тоже можно гвозди забивать.

Фто табе канкретно ни нравится алибеек?
Микроскопом гвозди забивать не только можно , но и удобно

[alibek]

Ты разрядность определить иначе, как преобразовав в строку и найдя точку, не можешь?
Для наводки могу сказать про логарифм.