Соотнеси десятичные числа с их двоичными эквивалентами.

Что такое Интернет и зачем он нужен?

Интернет и его функции

 Интернет – это всемирная компьютерная сеть. Она образует в результате соединения тысяч локальных компьютерных сетей (университетских, региональных и т. д. ), а так же компьютеров, подключённых к сети с отдельных каналов связи.

 Интернет – это огромное информационное пространство. Благодаря объединению ресурсов миллионов компьютеров, размещённых в различных уголках земного шара, сеть Интернет даёт возможность каждому её пользователю получить доступ к необъятным информационным богатством, позволяющим узнавать самые разнообразные сведения – начиная от прогноза погоды в вашем населённом пункте в конкретное время суток и заканчивая серьёзными аналитическими статьями на самые злободневные темы. Кроме чисто информационной функции, сеть Интернет также предоставляет модем множество дополнительных возможностей, позволяющих общаться посредством текстовой, голосовой и даже видеосвязи, загружать на свой компьютер музыку и видеоролики в популярных цифровых форматах (MPEG - 4, MP3), а также многое - многое другое. Бессмысленно пытаться перечислить здесь всё, что может предоставить Интернет своим посетителям, потому что даже пользователи с многолетним стажем обязательно забудут о какой - то важной и интересной возможности – на столько гигантскими по своему количеству и уникальными по своему разнообразию являются доступные в этой сети функции.

 Применение: Синонимами термина «Интернет» являются также слова и словосочетания, как «Глобальная сеть», «Всемирная сеть», «Сеть».

//1. Переборный алгоритм Евклида (цикл repeat)

var a, b, с: integer; 

begin

  write('Введите два числа: ');

  readln(a, b);

  if a < b then с := a + 1 else с := b + 1;

repeat с := с - 1

  until (a mod с = 0) and (b mod с = 0);

  write('NOD = ', с)

end.

 

//2. Алгоритм с вычитанием (цикл while)

var  a, b: integer;

begin

  write('a = ');

  readln(a);

  write('b = ');

  readln(b);

  while a <> b do

    if a > b then

      a := a - b

    else

      b := b - a;

  writeln('NOD = ', a);

end.