Соотнесите термины и их определения. ответ запишите парами «буква – цифра»
Термины
А) литосфера
Б) сейсмология
В) горячие источники
Г) очаг магмы
Д) горы Определения
1- обширные участки земной поверхности, приподнятые над равнинами и имеющие большие перепады высот
2 - трещины в земной коре, где магма плавится и скапливается
3 – каменная оболочка Земли
4 – подземные воды, нагретые внутренним теплом Земли и вышедшие на поверхность
5 – наука о землетрясениях
Function TextProgressBar(progint:integer):string;
begin
if progint >= 0 then
Result := '<$1> '+IntToStr(progint)+' <$3> <$2>';
if progint >= 10 then
Result := '<$1><$0> '+IntToStr(progint)+' <$3> <$2>';
if progint >= 20 then
Result := '<$1><$0><$0> '+IntToStr(progint)+' <$3> <$2>';
if progint >= 30 then
Result := '<$1><$0><$0><$0> '+IntToStr(progint)+' <$3> <$2>';
if progint >= 40 then
Result := '<$1><$0><$0><$0><$0> '+IntToStr(progint)+' <$3> <$2>';
if progint >= 50 then
Result := '<$1><$0><$0><$0><$0><$0> '+IntToStr(progint)+' <$3> <$2>';
if progint >= 60 then
Result := '<$1><$0><$0><$0><$0><$0> '+IntToStr(progint)+' <$3><$0> <$2>';
if progint >= 70 then
Result := '<$1><$0><$0><$0><$0><$0> '+IntToStr(progint)+' <$3><$0><$0> <$2>';
if progint >= 80 then
Result := '<$1><$0><$0><$0><$0><$0> '+IntToStr(progint)+' <$3><$0><$0><$0> <$2>';
if progint >= 90 then
Result := '<$1><$0><$0><$0><$0><$0> '+IntToStr(progint)+' <$3><$0><$0><$0><$0> <$2>';
if progint >= 100 then
Result := '<$1><$0><$0><$0><$0><$0>'+IntToStr(progint)+' <$3><$0><$0><$0><$0><$0><$2>';
end;
Пробуй
вялікія прыгожыя вочы; у водсвеце вячэрняй зары зусім пунсовым зрабіўся яе твар. Некалі на спатканнях яна часта рабіла так: сярод сур'ёзнай размовы аб самых высокіх матэрыях раптам падскаквала, зрывала каштан, ці галінку ліпы, ці проста ліст, клала яго на руку і «страляла». Або, калі яны часам выходзілі ўвечары за горад, раптам прапаноўвала: «Давай навыперадкі!» яна прызналася, што саромелася свайго беднага ўбрання: яна была з беднай сям'і, расла без маці. Саша стала нейкая больш стрыманая, паважная.