Такое число для 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>
Var
x,y:real;
begin
x:=2.509;
y:=(exp(3*ln(abs(x-3)))-5*x)/(sqr(x+2)+exp(ln(x)/5))*exp(3*ln(x+sqr(x)));
Writeln(y)
end.
<em><u>Результат выполнения программы:</u></em>
-393.821568095705
Это фотография, ответ под буквой а)
Получатся числа 16 15 5 4 3 1
Сумма=44
110 из 2 в 10 = 6
100 из 8 в 10 = 64
101 из 16 в 10 = 257
257+64+6=327
Ответ: 327
(Лучший ответ)