Такое число для 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>
Begin
var a:=ArrRandom(10,-150,250); a.Println;
var max := a.Max;
println('Максимальное = ', max);
a.Transform(t->t=max ? max*(-1):t);
a.Println;
end.
Ответ:
Дело мастера боится
Объяснение:
у человека, досконально знающего своё дело, ремесло, даже сложная работа будет ладиться и получаться.
Прикрепляю 2 фотографии. На первой написана задача про стоимость продуктов, но второй - задача с часами