с решением. 10 класс. Информатика В тер­ми­но­ло­гии сетей TCP/IP мас­кой сети на­зы­ва­ет­ся дво­ич­ное число, опре­де­ля­ю­щее, какая часть IP-ад­ре­са узла сети от­но­сит­ся к ад­ре­су сети, а какая – к ад­ре­су са­мо­го узла в этой сети. Обыч­но маска за­пи­сы­ва­ет­ся по тем же пра­ви­лам, что и IP-адрес. Адрес сети по­лу­ча­ет­ся в ре­зуль­та­те при­ме­не­ния по­раз­ряд­ной конъ­юнк­ции к за­дан­но­му IP-ад­ре­су узла и маске. По за­дан­ным IP-ад­ре­су узла и маске опре­де­ли­те адрес сети. IP адрес узла: 217.9.142.131 Маска: 255.255.192.0 При за­пи­си от­ве­та вы­бе­ри­те из при­ве­ден­ных в таб­ли­це чисел че­ты­ре эле­мен­та IP-ад­ре­са и за­пи­ши­те в нуж­ном по­ряд­ке со­от­вет­ству­ю­щие им буквы, без ис­поль­зо­ва­ния точек

n, counter, spisok, new_spisok = int(input()), 0, [], []

while counter != n:

spisok.append(int(input()))

counter += 1

c1, c2 = int(input()), int(input())

for i in spisok:

if c1 <= i <= c2:

new_spisok.append(i)

print(new_spisok, len(new_spisok))

Объяснение:

1) хз зачем там цикл while, но раз в условии написано, то сделал через него;

2) скорее всего работать нужно со списками, а не массивами, так как append - метод списка;

3) если нужно, могу объяснить каждую строку;

4) формат вывода массива не указан, поэтому вывод обычного массива с его длиной через запятую;

5) нижние слеши это пробелы типа)

Объяснение:

1.
Var a,b,pr:integer;
Begin
pr:=1;   
write('Вводите числа, когда закончите - введите 0. '); readln(a);
while (a<>0) do  begin 
 if (a>0) and (a<10) then begin b:=b+1; pr:=pr*a; end; readln(a)  end;
Writeln('Чисел, больше 0 и меньше 10: ',b,' их произведение:',pr);end.

2.
Var a,b,c,i,sum,f:integer;
Begin
 Write('Введите 10 двузначных чисел: '); repeat readln(a); until(a>=10) and (a<100);
for i:=1 to 10 do 
  begin 
     repeat readln(a); until(a>=10) (a<100)
      b:=a mod 10;
      c:=a div 10;
       sum:=b+c;
        if (sum mod 2 = 0) then f:=f+1;
end;
Writeln('Кол-во цифр, удовлетворяющих условию: ',f);
end.

3.
Var a,b,c:integer;
Begin 
  write('Вводите целые положительные числа.');
repeat
   readln(a);
b:=b+a;
c:=c+1;
 until (b>100);
Writeln('Кол-во введёных чисел:',c,' их сумма:',b);
end.