Var
number, day, month: integer;
begin
writeln('Напишите день');
readln(number);
day := (number mod 30);
month := (number div 30);
writeln(day, '.', month);
end.
Номера 1 и 4.
Маски имеют вид 255.255.255.0, значит под хост выделен последний байт маски, а первые три байта - под адрес сети.
Первые три байта у 1 и 4 IP-адресов одинаковые, значит адрес сети тоже один.
Число сочетаний из n по k:
C(n,k) = n! / ((n-k)!*k!) = 8! / ((8-4)!*4!) = 8! / (4!*4!) = 5*6*7*8 / (1*2*3*4) = 70
Ну как то так получилось. Здесь как я понял надо было так сделать.
Var
n,i,k,m:integer;
x:real;
a:array[1..100]of real;
begin
//read(n);
n:=12;
for i:=1 to n do
read(a[i]) ;
read(k,m);
x:=a[k];
a[k]:=a[m];
a[m]:=x;
for i:=1 to n do
write(a[i]:1:6,' ');
readln;readln;
<span>end.</span>