Что нового

[Математика] Найти сумму цифр числа

antidog

Новичок
Сообщения
24
Репутация
2
Возможно ли в autoit найти сумму цифр числа ( 1480 = 1+4+8+0 = 13 ) Нужно чтобы исходное число бралось из одной переменной, а конечное записывалось в другую. Поиски и русская справка не помогли :(
 

Garrett

Модератор
Локальный модератор
Сообщения
3 999
Репутация
964
Код:
Dim $iIN = 1480, $iSum

$sLen = StringLen(String($iIN))
For $i = 0 To $sLen
	$iSum += Int(StringMid($iIN, $i, 1))
Next
MsgBox(0, "", $iSum)
 

madmasles

Модератор
Глобальный модератор
Сообщения
7 790
Репутация
2 319
antidog,
Или так:
Код:
$iNumber = 1480
$iSumma = 0
$aNumber = StringSplit($iNumber, '')
If IsArray($aNumber) Then
	For $i = 1 To $aNumber[0]
		$iSumma += $aNumber[$i]
	Next
EndIf
MsgBox(0, '', $iSumma)
 

Yashied

Модератор
Команда форума
Глобальный модератор
Сообщения
5 379
Репутация
2 713
Код:
Execute("0" & StringRegExpReplace("1480", "", "+") & "0")
 
Автор
A

antidog

Новичок
Сообщения
24
Репутация
2
ух ты :laugh: как оперативно, спасибо, пожалуй заберу 1 или 2 , мне как новичку они более понятны
 

madmasles

Модератор
Глобальный модератор
Сообщения
7 790
Репутация
2 319
Yashied
Круто!!! :IL_AutoIt_1:
 

Garrett

Модератор
Локальный модератор
Сообщения
3 999
Репутация
964
Yashied
Самый шустрый вариант :ok:
 
Верх