Ммм, если ты нигде не ошибся, то цикл не выполнится и программа выведет только девятку, которая перед этим самым циклом стоит
1 О и М Б1 и Б2 к берегу2 -
2 О и М Б1 к берегу1 Б2
3 М и Б1 О к берегу2 Б2
4 М и Б1 Б2 к берегу1 О
5 М Б1 и Б2 к берегу2 О
6 М Б1 к берегу1 О и Б2
7 Б1 М к берегу2 О и Б2
8 Б1 Б2 к берегу1 О и М
9 - Б1 и Б2 к берегу2 О и М
Var
n:integer;
begin
n:=20;
while n<=320 do begin
Write(n,' ');
n:=2*n
end
end.
Результат работы
20 40 80 160 320
Региональные компьютерные сети.
Локальные сети не позволяют обеспечить совместный доступ к информации пользователям, находящимся, например, в различных частях города. На помощь приходят региональные сети, объединяющие компьютеры в пределах одного региона (города, страны, континента).