Переменной z присвоить разность величин m и n, увеличить значение z в 2 раза.

Var z,m,n: real; begin writeln('vvedite m: '); readln(m); writeln('vvedite n: '); readln(n); z: =m-n; z: =z*2; writeln(z); readln; end.

140 (10cc)= 10001100 (2cc) 136 (10cc) =10001000 (2cc)               третий октет ip            1000 1100  маска      1111 1000        = 255-7=248 (10сс) сеть        1000 1000                                           ответ:   248            

вот в 6 программа выводит все числа кроме 1 и самого числа #1

x=int(

s=0

while x! =0:

x=int(

s+=1

print(s)

#2

x=int(

s=0

while x! =0:

x=int(

if x==3:

  s+=1

print(s)

#3

x=1

s=-1

s1=0

while x! =0:

x=int(

if (x%2)==0:

  s+=1

else:

  s1+=1

print('четные-',s,'\n','нечетные-',s1)

#4

x=1

s=-1

s1=0

while x! =0:

x=int(

if (x%2)==0:

  s+=x

else:

  s1+=x

print('четные sum-',s,'\n','sum нечетные-',s1)

#5

s=0

x=int(

while s< =x:

y=int(

s+=y

if s< =x:

  break

#6

x=int(

t=x-1

while t> 1:

if (x%t)==0:

  print(x/t)

  t-=1

else:

  t-=1