Такое число для 3 разрядных чисел одно, это 512
Sub amstrong()
ctroka = 2
For i = 100 To 999
N1 = i \ 100
N2 = (i - 100 * N1) \ 10
N3 = i - 100 * N1 - 10 * N2
If (N1 + N2 + N3) ^ 3 = i Then
Cells(ctroka, 2) = i
ctroka = ctroka + 1
End If
Next i
<span>End Sub</span>
1.Для чего предназначены базы даных?-Для осуществления хранения, поиска и сортировки данных.
CREATE TABLE mytable
(
id INT(6) AUTO_INCREMENT PRIMARY KEY,
firstname VARCHAR(30) NOT NULL,
lastname VARCHAR(30) NOT NULL,
year INT(4),
midmark INT(1)
<span>)</span>
i=2бита, следовательно N=2 во 2 степени=4 символа
Х=187
x>0
да
у=2х
у=2*187
у=374