Программа генерирует случайное двузначное число до тех пор ,пока не найдется число кратное 5. после чего на экран выводится количество попыток генерации
Первый советский компьютер был создан под руководством Сергея Алексеевича Лебедева (1902—1974). Необходимость создания собственного ЭВМ в СССР была осознана несколько позже, чем в США, так что соответствующие работы начались только с осени 1948 года. Инициаторами проекта выступили ученые-ядерщики — в те годы буквально вся страна работала над атомным проектом, который курировал лично Лаврентий Берия. Первым делом советские разработчики приступили к разработке Малой электронной счетной машины (МЭСМ). 1946 год - это не год создания самой ЭВМ. В 1946 только определились с прниципиальной схемой блоков и компоновкой. Сам компьютер сделали только в 1950. Разработки шли в Киеве, тогда не делили на русских и украинских ученых. Они все были советские, частью из Москвы, частью - киевляне (в частности, Глушков).
- модемное. делится на коммутируемое (Dial-Up - с набором номера) и постоянное (по выделенной линии). Второй вариант, как правило через ADSL-модем, скорость гораздо выше первого. - спутниковый. требует наличия тарелки и доп. оборудования - Ethernet-подключение (через локальную сеть). Используются оптоволоконные кабели или витая пара (UTP) - мобильное беспроводное 3G - 4G пдключение. Очень низкое качество и скорость - WiFi. малый радиус действия - не далее 50-100 метров от роутера.
внедрение локальных сетей позволяет решать вопросы доступа к данных и распределенной обработке их всеми сотрудниками предприятия. Реализуется посредством ионтажа локальной сети и созданием структурированной кабельной сети.
Монтаж таких сетей позволяет избежать целого ряда проблем. Например, улучшить и облегчить работу на всех уровнях, упростить процесс обмена информацией, избежать путаницы в работы и утечки секретной информации. Если система правильно настроена, то работники будут быстрее решать поставленные задачи, находить нужную информацию, хранящуюся в электронном архиве.
begin;
repeat
k:=k+1;
n:=random(10,99);
until n mod 5=0;
writeln('Число:',n);
writeln('Попытки:',k);
end.