с автостанции автобусы отправляются по 16 маршрутам и переезжают через реку по 4-м мостам: 1,2,3,5 - по южному, 4,6,7,8 - по центральному, 9,10,11, 12 - по северному, 13,14,15, 16 - по окружному. ввести с клавиатуры номер маршрута. определить, по какому мосту он пойдет.

Паскаль ABC.Net

Program Z;

var x:integer;

BEGIN

     write('Задайте номер маршрута: ');

     read(x);

     if ((x>=1) and (x<=3)) or (x=5) then write('Автобус поедет по Южному мосту');

     if ((x>=6) and (x<=8)) or (x=4) then write('Автобус поедет по Центральному мосту');

     if (x>=9) and (x<=12) then write('Автобус поедет по Северному мосту');

     if (x>=13) and (x<=16) then write('Автобус поедет по Окружному мосту');

END.

Объяснение: