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
//PascalABC.NET
2)
begin
arrrandom(20, 0, 15).Println.Where(x -> x.IsOdd).Count.Println;
end.
3)
begin
readarrinteger('Введите результаты подтягиваний 18 учеников:', 18).Min.Println();
end.
Лицензионные программы это официальные программы от производителя в отличии от repack'a. Отличия бывают иногда, но не всегда, обрезаются онлайн функции, поддержка с официального сайта. Рекомендуется всегда покупать лицензию, но никто так не делает.
Без ОС
-- дверной звонок
с ОС
-- автоматический электрочайник
<span>-- термореле
это всё что я знаю!</span>