Function IsArmstrong(m As Long) As Boolean
Dim s As Long, n As Integer, i As Integer, m1 As Long
Dim d(1 To 15) As Long
m1 = m: n = 0
Do While m1 > 0
n = n + 1
d(n) = m1 Mod 10
m1 = Int(m1 / 10)
Loop
s = 0
For i = 1 To n
s = s + d(i) ^ n
Next i
IsArmstrong = (s = m)
End Function
Sub Test()
Dim k As Long, i As Long, j As Integer
Cells.Clear
k = CLng(InputBox("Введите значение k"))
j = 1
For i = 0 To k
If IsArmstrong(i) Then
Cells(j, 1) = i
j = j + 1
End If
Next i
End Sub
Никакие вроде иорвпквироиафрпфрфв
Переведем кбайт в байт
0,25•1024=256 байт
Переведем байты в биты
256•8=2048 бит
При рисовании пятиконечной звезды Черепаха совершает два оборота, т.е. 720 градусов.Делим 720 на пять поворотов и даём поправку в 40 градусов.x = 720/5 + 40 = 144 + 40 = 184.<span>Подходит также второй вариант угла: 360-144 = 216, который с поправкой на 40 градусов даёт замечательное число 256.</span>
Значитса тебе надо найти квадраты чисел до самого N ,для этого мы объявляем переменную k и присваиваем ей 1 и переменную s, которой присваиваем значение 0, после делаем цикл от 1 до N с шагом 1 и там же к s прибавляем k, а k увеличиваем на 2 ( на 1 шаге k=3, на 2 k=5 и т. д., то есть нечетные числа) ну и выводим в цикле s
#include <iostream>
#include <conio.h>
using namespace std;
int main()
{
int N;
cin>>N;
int k=1,s=0;
for(int i=1;i<=N;i++)
{
s=s+k;
k=k+2;
cout<<i<<"^2 = "<<s<<endl;
}
_getch();
return 0;
}