xD
uses crt;
var
dt,t1,t2:LongInt;
function GetTime:LongInt;
var
substr,str:string;
ERR,step,spacepos,code,num:Integer;
t:longint;
begin
ERR:=0;
repeat
t:=0;
step:=1;
if ERR<>0 then writeln('Nepravilnie dannie, povtorite vvod:');
ERR:=0;
readln(str);
str:=str+' ';
repeat
spacepos:=pos(' ',str);
if (spacepos<>0) then
begin
substr:=copy(str,1,spacepos-1);
delete(str,1,spacepos);
val(substr,num,code);
if code=0 then
begin
if (step=1) then begin if (num>=0) and (num<=23) then t:=t+num*60*60 else ERR:=3; end;
if (step=2) then begin if (num>=0) and (num<=59) then t:=t+num*60 else ERR:=3;end;
if (step=3) then begin if (num>=0) and (num<=59) then t:=t+num else ERR:=3;end;
inc(step);
end
else ERR:=2;
end else ERR:=1;
until ((step=4) or (err<>0));
until err=0;
GetTime:=t;
end;
begin
writeln('pervoe vremy:');
t1:=GetTime;
writeln('vtoroe vremy:');
t2:=GetTime;
if t2>=t1 then dt:=t2-t1 else dt:=t2-t1+24*60*60;
writeln('raznica v sekundah: ');
writeln(dt);
end.
Что ?
Объяснение:
Саха́ра (араб. الصحراء الكبرى, Эс-Сахра-эль-Кубра; фр. Sahara) — крупнейшая жаркая пустыня и вторая, после Антарктической, пустыня на Земле, расположенная на севере Африканского континента. Вытянута примерно на 4800 км с запада на восток и от 800 до 1200 км с севера на юг; имеет площадь около 8,6 млн км² (около 30 % площади Африки, немногим больше площади Бразилии). С запада Сахара омывается Атлантическим океаном, с севера ограничена горами Атлас и Средиземным морем, а с востока — Красным морем. Южная граница пустыни определяется зоной малоподвижных древних песчаных дюн на 16° с.ш., к югу от которой располагаетсяСахель — переходный регион к Суданской саванне[1].
Сахара частично захватывает территорию более десяти государств —Алжира, Египта, Западной Сахары, Ливии, Мавритании, Мали,Марокко, Нигера, Судана, Туниса и Чада. Обширные пространства Сахары не заселены, оседлый образ жизни ограничен районамиоазисов, долинами рек Нил и Нигер.
Сахара не поддаётся категоризации в рамках одного типа пустыни, хотя преобладающим является песчано-каменистый тип. В составе пустыни различают множество регионов: Тенере, Большой Восточный Эрг, Большой Западный Эрг, Танезруфт, Эль-Хамра, Игиди, Эрг-Шеш,Аравийскую, Алжирскую, Ливийскую, Нубийскую пустыни, пустынюТалак.
Сахара постоянно увеличивается — каждый год пустыня расширяется к югу на 6÷10 км[2].
