1) если маска подсети 255.255.255.240 и ip-адрес компьютера в сети 192.168.156.235, то номер компьютера в сети 1) если маска подсети 255.255.255.128 и ip-адрес компьютера в сети 122.191.12.189, то номер компьютера в сети 1) если маска подсети 255.255.248.0 и ip-адрес компьютера в сети 112.154.133.208, то номер компьютера в сети 1) если маска подсети 255.255.224.0 и ip-адрес компьютера в сети 206.158.124.67, то номер компьютера в сети

Смотри b11, там как раз есть!

For - это цикл со счетчиком "i : = 0 to 10" - это начальное и конечное значения (ноль и десять) т.е. начинаем с нуля, что-то делаем, и берем следующее число - "1" потом снова что-то делаем, берем следующее - "2" в "i" - записывается то число, с которым работаем в данный момент и так, пока не дойдем до "10" а вот что именно делать - написано между словами "begin" и "end"или сразу после "do" (если строка одна) 1) можно представить несколько клеток с номерами () и числами в них а в квадратных скобках "[i]" - номер клетки берем ноль, a[0] - "ячейку с номером 0" и записываем туда число 10 a[i] : = 10 - i; a[0] = 10 - 0 (в а0 записать 10) далее в a[1] записываем "9" (10 - 1) в a[2] записываем "8" (10 - 2) и так до десяти включительно 2)далее цикл от 0 до 5 a[10-0] = a[5-0] (из десятой клетки записываем число в пятую) a[5+0] = a[0] a[10-1] = a[5-1] (из 9ой в 4) a[5+1] = a[1] (из 6ой в 1) a[10-2] = a[5-2] (8 -> 3) a[5+2] = a[2] (7 -> 2) и т.д. и т.п. 3)как-то так должно работать (следующий столбец - следующее число)

Var a,b,c,d,x,y: byte; begin write('a = '); readln(a); write('b = '); readln(b); write('c = '); readln(c); write('d = '); readln(d); write('x = '); readln(x); write('y = '); readln(y); writeln((a+d)*100+(b+x)*10+c+y); end. var a,b,c: integer; begin write('a = '); readln(a); c: =a; while c< > 0 do     begin     b: =b*10+(c mod 10);     c: =c div 10;     end; if a=b then writeln(a - ' палиндром') else writeln(a,' не является палиндромом') end.