<em>// PascalABC.NET 3.3, сборка 1573 от 04.11.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var a:=ArrRandom(ReadInteger('n='),-2,2); a.Println;
var b:=a.IndexesOf(t->t=0).Select(t->t+1).ToArray;
b.Println
end.
<u>Пример</u>
n= 15
1 -1 0 2 0 0 -2 -2 -2 -2 0 2 0 -2 -1
3 5 6 11 13
64 = 2^6 => i=6
8 = 2^3 => i=3
6/3=2
Объем занимаемой памяти уменьшился в два раза.
#include <iostream> //подключаем библиотеки
using namespace std; //пространство иён
int main() {
int n = 1000; //до какого числа
int n1 = 1; //с какого числа
while(n1 < n) //цикл
{
if(n1 % 444 == 0) //проверка
{
cout << n1 << " "; //вывод
}
n1++; //увелечение
}
return 0; //возращаем ничего
}
IP 220.128.112.142
маска 255.255._х__. 0
адрес 220.128. 96. 0
112 (10сс) =64+32+16 =0111 0000 (2сс)
96 (10сс) =64+32 = 0110 0000 (2сс)
х= 1110 0000 (2сс) = 128+64+32=224 (10сс)
ответ 224