int main ()
{
int a[20];
int n, i;
n = 20;
for (i = 0; i < n; i++)
*(a + i) = i*(3 * i);
for (i = 0; i < n; i++)
printf ("%d ", *(a + i));
printf("\n");
for (i = 1; i < n - 1; i++)
*(a + i) = (*(a + i - 1) + *(a + i) + *(a + i + 1))/3;
for (i = 0; i < n; i++)
printf ("%d ", *(a + i));
printf("\n");
}
Как то так, но не уверен.
Алексей ,так как а-это согласна , и в слове Алексей 7 букв.
a, b = map(int, input().split())
answer = []
for i in range(a, b):
num = str(i)
length = len(num)
sum = 0
for y in num:
sum += int(y)**length
if sum == int(i):
answer.append(str(i))
if len(answer) == 0:
answer.append('-1')
print(' '.join(answer))
//Pascal
//Числа случайные в диапазоне [-10;10]
var
A: array [1..15] of integer;
i: byte;
mult: longint;
begin
mult := 1;
randomize; //В PascalABC.NET можно убрать
for i := 1 to 15 do
begin
A[i] := random(21)-10;
if i mod 2 = 0 then mult := mult * A[i];
write(A[i], ' ');
end;
writeln;
writeln('Произведение элементов на четных местах = ', mult);
readln;
end.