Переделать в паскале в формат while var n,i,k: integer; begin k: =2; write('введите число n'); readln(n); for i: = 2 to n div 2 do if n mod i = 0 then k: =k+1; writeln(,k); end.
В терминологии сетей TCP/IP маской сети называется двоичное число, определяющее, какая часть IP-адреса узла сети относится к адресу сети, а какая – к адресу самого узла в этой сети. При этом в маске сначала (в старших разрядах) стоят единицы, а затем с некоторого места – нули. Обычно маска записывается по тем же правилам, что и IP-адрес, – в виде четырёх байтов, причём каждый байт записывается в виде десятичного числа. Адрес сети получается в результате применения поразрядной конъюнкции к заданному IP-адресу узла и маске. Например, если IP-адрес узла равен , а маска равна , то адрес сети равен . Узлы с IP-адресами и находятся в разных сетях.
Если не вдаваться в несущественные детали, то будущее за виртуальным общением. Пока мы вынуждены, из-за своего невежества, снимать театр. Когда изобрели кино, то не изобрели еще крупного плана Эйзенштейна, и других эффективных приемов, которые сейчас применяются повсеместно. Попросту не знали, что делать с кино. Так и с виртуальным общением. Пока мы к нему подходим со своими старыми взглядами. Главное достоинство виртуального общения – возможность каждого человека принимать участие в практически неограниченном количестве проектов. Современные социальные сети только отчасти решают эти проблемы. Instagram, позволяющий делиться творчеством с друзьями, Twitter …. – только первые ласточки. Главное достоинство виртуальных сетей – возможность бороться с проклятьем бесконечности при друзей-экспертов в самых разнообразных областях предметной деятельности. В ближайшие годы мы будем наблюдать появление социальных сетей нового типа, обобщающие возможности научных конференций, типа четвергов у Ландау, и объединяющие миллионы к созидательному творчеству в самых разнообразных областях предметной деятельности. Безусловно, новые общения имеют недостатки с точки зрения тех, кто привык к традиционным методам. Но, это только в Египте ученики на протяжении 2 тысяч лет учились по неизменному учебнику «Послание отца сыну». Сейчас, в эпоху информационного взрыва старший брат не может понять младшего, не говоря о более солидном поколении. Такая судьба современного человека. Все, к сожалению, происходит почти в соответствии с древним китайским пожеланием врагу: «Чтоб ты жил в эпоху перемен». Но мы должны мужественно принимать удары судьбы, потому что у нас нет выбора, или прогресс, или гибель будущих поколений.
var
n, i, k: integer;
begin
k := 2;
write('введите число n');
readln(n);
i := 2;
while i <= n div 2 do
begin
if n mod i = 0 then
k := k + 1;
i := i + 1;
end;
writeln(k);
end.