Домик черепахи расположен в начале прямой узкой грядки, на которой должны прорасти одуванчики – ее любимое лакомство. и вот черепахе приснился вещий сон. из него она узнала, что наконец-то после полуночи начнут расти одуванчики. ей даже приснилось, в какой момент времени, и в какой точке грядки вырастет каждый одуванчик. ровно в полночь черепаха выползла из домика, чтобы съесть все одуванчики и до следующей полуночи вернуться домой. черепаха может ползти со скоростью, не превосходящей величины vmax. одуванчик она съедает, остановившись на время d. если одуванчик начать есть, но не доесть до конца, то он засыхает, поэтому его надо съедать за один прием. одуванчики прорастают тем позже, чем дальше они расположены от начала грядки. в одной точке не могут прорастать несколько одуванчиков, а также несколько одуванчиков не могут прорастать в один момент времени. требуется определить, в какой момент времени черепаха сможет вернуться домой, съев все одуванчики и затратив на путешествие наименьшее время. входные данные в 1-й строке входного файла находятся 2 целых числа, разделенные пробелом: vmax (в см/мин) и d (в минутах), 0 < vmax ≤ 200, 0 ≤ d ≤ 500. во 2-й строке находится число n – количество одуванчиков (в штуках). 0 ≤ n ≤ 1400 при d = 0, в противном случае 0 ≤ n ≤ 200. в каждой из последующих n строк расположены: целое число xi – расстояние от одуванчика до начала грядки (в сантиметрах), 0 ≤ xi ≤ 32767, и через пробел ti – момент прорастания одуванчика (в формате hh: mm). пары в порядке возрастания расстояний. выходные данные выходной файл должен содержать момент времени возвращения черепахи домой (в формате hh: mm), округленный до целых минут в большую сторону. примечания 1. в часе – 60 минут, в сутках – 24 часа. 2. время в сутках изменяется от 00: 00 до 23: 59. 3. можете считать, что черепаха не меняет направления движения до тех пор, пока не доползет до последнего одуванчика. информатикс 894
d:integer;
const
a=650;
b=1;
c=1000;
begin
write('Введите объём видеофайла в мегабайтах: ');
readln(d);
if d>a then write('Видеофайл не помещается на носитель информации"А"!',#10) else
writeln('Памяти хватает для записи на носитель "А"! ',#10);
if d>b then write('Видеофайл не помещается на носитель информации"B"!',#10) else
writeln('Памяти хватает для записи на носитель "B"! ',#10);
if d>c then write('Видеофайл не помещается на данный носитель информации"С"!',#10) else
writeln('Памяти хватает для записи на носитель "C"! ',#10);
readln;
end.
a1,a2,b1,b2,c1,c2:integer;
begin
writeln('Координаты превой клетки');
writeln('введите номер столбца');
readln(a1);
writeln('введите номер строки');
readln(a2);
writeln('Координаты второй клетки');
writeln('введите номер столбца');
readln(b1);
writeln('введите номер строки');
readln(b2);
if ((a1 mod 2) <> 0) then
if ((a2 mod 2) <> 0) then c1:=0 else c1:=1;
if ((a1 mod 2) = 0) then
if ((a2 mod 2) <> 0) then c1:=1 else c1:=0;
if ((b1 mod 2) <> 0) then
if ((b2 mod 2) <> 0) then c2:=0 else c2:=1;
if ((b1 mod 2) = 0) then
if ((b2 mod 2) <> 0) then c2:=1 else c2:=0;
if c1=c2 then writeln('YES') else writeln('NO')
end.