Напишите программу, которая выбирает в другой массив каждый третий элемент исходного массива, начиная с первого. входные данные первая строка содержит размер массива n . во второй строке через пробел n чисел – элементы массива. гарантируется, что 0 < n ≤ 10000 . выходные данные программа должна вывести в одну строчку все элементы построенного массива, разделив их пробелами. примеры входные данные 6 1 2 3 4 5 6 выходные данные 1 4

Program a;
var i,n,c: integer;
mas1,mas2 : array[1..10000] of integer;
begin   c:=1;  
write('размер массива = ');
read (n); 
writeln('элементы массива: ');   
for i:=1 to n do    begin   
read (n);   
if (n>0) and (n<=10000) then begin    
mas1[c]:=n;   
inc(c);   
end;   
end;  
n:=1;  
writeln('Выходные данные: ');   
i:=1; 
while i<=(c-1) do begin   
mas2[n]:=mas1[i];                      
inc(n);   
i := i + 3;   
end;
for i:=1 to n-1 do    
write (mas2[i],' ');
end.

 Вот порядок приготовления пельменей. В посуду смешивают яйцо,вода, мука. чуть соли. .Тесто замешивают до консистенции,чтоб можно было резать ножом.  Дальше            Некоторые раскатывают большой сочень потом стаканом  или другой формой выдавливают  лепешечки на посредственно для пельменей туда кладут фарш слепили и готово.                                                                                                          Другие раскатывают тесто под вид колбаски ,затем ножом эту колбаску разрезают на равные части,которые раскатывают для фарша.  Я знаю три вида формы пельменей.

Переводим третий байт IP и адреса сети в двоичную систему

50 - 110010

48 - 110000

Так как это байт (а в байте 8 бит), допишем два незначащих нуля к получившимся числам:

00110010 - IP

00110000 - адрес сети

Адрес сети получается с применения поразрядной конъюнкции к маске и IP, проще говоря, при перемножении разрядов маски и IP-адреса. И в маске всегда сначала идут только единицы, а потом только нули. То есть можно записать так:

- маска

00110010 - IP

00110000 - адрес сети

где иксы в маске и цифры в IP-адресе - множители, а разряды адреса сети - произведение.

На 3 и 4 месте в маске однозначно должны быть единицы, т.к. если там будут нули, то и в адресе сети будут нули. Плюс к этому, в маске всегда сначала идут только единицы, а потом только нули, то есть можно записать так:

1111 - маска

00110010 - IP

00110000 - адрес сети

Второй справа разряд IP-адреса - единица, а адреса сети - ноль, значит в маске может быть только ноль:

1111хх00 - маска

00110010 - IP

00110000 - адрес сети

Оставшиеся два икса могут быть и единицами, и нулями. Нужно наименьшее возможное значение, значит поставим на их место нули:

11110000 - маска

00110010 - IP

00110000 - адрес сети

То есть третий байт маски 11110000, переведём в десятичную - получим 240.