При составлении расписания работы наземной приемной станции может возникать ситуация, когда два спутника одновременно находятся в зоне видимости станции.

в таких случаях приходится делать выбор: какой из пересекающихся спутников будет принимать станция. предположим, в программе, которая составляет расписание, интервалы времени сеансов одного спутника хранятся в переменной passa, другого – в переменной passb. для представления интервалов времени используются двухэлементные массивы (индексируемые с 0), в которых первый элемент содержит время начала интервала, второй – время конца.

тип элементов этих массивов позволяет использовать операторы < и > для сравнения моментов времени ( «раньше/позже»).

какое из следующих выражений можно использовать для проверки условия пересечения (даже частичного) сеансов passa и passb:

выберите один вариант из списка


(passb[1] > passa[0]) or ( passb[0] < passa[1] )

(passb[0] > passa[0]) and ( passb[1] < passa[1] )

(passb[1] < passa[0]) or ( passb[0] > passa[1] )

(passb[1] > passa[0]) and ( passb[0] < passa[1] )

Здесь пришлось учитывать положительные и отрицательные числа, т.к. длина строки с отрицательным числом включает в себя и знак минус. поэтому в некоторых местах программы я добавлю пояснение. var    n,p: integer;     s: string; begin    write ('введите число:   ');     readln (n);   if n< 0 then n: =-n; // отрицательное число переделываем в положительное, чтобы "длина строки" ниже не получилась больше количества цифр в числе   str(n,s); // преобразуем число в строку, чтобы узнать длину числа (количество цифр)   if (length(s) mod 2)=0 then  n: =n div 10;   // проверяем длину числа на четность.  так как нам нужны цифры с нечетных мест, убираем из числа последнюю цифру, которая стоит на четном месте:         p: =1;   while n> =1 do begin // организуем цикл пока число не станет меньше единицы (в цикле мы будем отрезать от него по две цифры)     p: =p*(n mod 10); // произведение умножаем на последнюю цифру числа (остаток от деления числа на 10)     n: =n div 100; // отрезаем от числа 2 последние цифры. (в последней итерации цикла оно примет вид 0,0х, т.е. будет больше 0,  но меньше 1)   end;   writeln;   writeln ('произведение цифр,которые расположены на нечётных позициях, = ',p);     end.проимер: введите число: -2323произведение цифр,которые расположены на нечётных позициях, = 4