Ответ:
почему только 5?
от 00 до FF - 256 различных двузначных чисел
Объяснение:
Sub Zadanie()
n = CInt(InputBox("n ="))
for i = 1 to n
t = i
s = 0
Do While t > 0
s = s + (t mod 10)^3
t = t \ 10
Loop
if i=s then MsgBox i
next
End Sub
Достовреная:2х2=4
Недостоверная 6 2х2=5
Ценная: Цены на нефть будут подниматься в ближайшие полгода. .
Малоценная: В номере газеты "Правда" от 3 февраял 1957 года не было ни одного рекламного объявления.
Своевременная: Начинается дождь.
<span>Несвоевременная: Вчера в Икее была распродажа</span>