с автостанции автобусы отправляются по 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.

Объяснение:

3) Укажите правильную последовательность действий при работе с базами данных (составить последовательность из букв): 
c. Продумать структуру базы данных 
b. Дать имя каждому полю в базе данных 
a. Занести данные в таблицу 
d. Осуществить сортировку записей в базе данных 

4) Сортировка – это: 
c) расположение записей в определённом порядке 

5) Примером базы данных может служить: 
c) Телефонная книга 

6) В каком из перечисленных типов полей, данные могут выглядеть таким образом: 01. 07. 85? 
d) В поле дата/время 

7) Какая из перечисленных баз данных имеет представленный ниже вид: 
№ фамилия имя класс физика история 
1. Горин Петя 10 а 4 5 
2. Петров Юра 10 б 3 4 
3. Васильева Катя 11 а 5 5 
4. Петрова Юля 11 а 4 4 
d) Табличная 

8) Сколько полей в представленной выше базе данных? 
d) 6 

9) БД содержит информацию об учениках компью¬терной школы: имя; номер группы; за тест; за задание; общее количество . Какого типа должно быть поле «Общее количество бал¬лов»? 
c) числовое; 

10) БД содержит информацию о каждой собаке из клуба соба¬ководства: кличка, порода, дата рождения, пол, количестве медалей. Какого типа должны быть поля? 
b) текстовое, текстовое, дата, текстовое, числовое; 

11) Для отбора записей об учащихся, которые имеют по физике оценку «3» , а по истории не ниже «4» , нужно задать условие отбора по столбцам «физика» и «история» соответственно: 
c) = 3 и >=4 

12) Для выбора текстовых значений, начинающихся на букву « К » и состоящих из 4 символов, нужно задать условие отбора: 
c) К??? 

1. Современный вариант

// PascalABC.NET 3.1, сборка 1184 от 02.03.2016
begin
  var n:=Random(-100,100);
  Writeln('В числе ',n,' количество разрядов равно ',
    abs(n).ToString.Length)
end.

Тестовое решение:
В числе -40 количество разрядов равно 2

2. Школьный вариант (понятный большинству учителей)

// PascalABC.NET 3.1, сборка 1184 от 02.03.2016
var
  n,k:integer;
begin
  Randomize;
  n:=Random(201)-100;
  k:=1;
  Write('В числе ',n,' количество разрядов равно ');
  n:=abs(n);
  while n>0 do begin
    n:=n div 10;
    if n>0 then Inc(k)
    end;
  Writeln(k)
end.

Тестовое решение:
В числе -5 количество разрядов равно 1