var
nl,n2:integer; { числа, НОД которых надо найти }
nod:integer; { наибольший общий делитель }
г:integer; { остаток от деления nl на п2 }
begin
writeln('Вычисление наибольшего общего делителя');
writeln('для двух целых чисел.');
write('Введите в одной строке два числа ');
writeln('и нажмите <Enter>');
write('->');
readln(nl,n2);
while (nl mod n2)<>0 do
begin
r:=nl mod n2; { остаток от деления}
nl:=n2;
n2:=r;
end;
nod:=n2;
writeln('НОД чисел ',nl,' и ',п2,' это ',nod);
readln;
end.
Пустыни отличаются еще большим дефицитом влаги (менее 150 мм в год) и более высокими средними температурами июля - 1-25°С. Лето здесь еще более длинное и жаркое. Пустыня — самая жаркая зона нашей страны, где к тому же в среднем за год бывает не меньше 200 солнечных дней. Почвы еще более засолены, чем в полупустыне. Главная причина образования пустынь (как и других зон) — климат. Коэффициент увлажнения в зоне пустынь не превышает 0,1—0,Разреженная растительность покрывает обычно менее половины поверхности пустыни. Растительной массы мало. В сухом климате она быстро высыхает. Накопления перегноя от опада почти не происходит. Почвы пустынь — сероземы. За счет содержания в них большого количества минеральных солей при орошении они становятся плодородными.
Широколиственные леса Северной Америки по сравнению с лесами Евразии отличаются богатством видов деревьев и кустарников. В лесах преобладает бук крупнолистный, достигающий 40 м высоты и более 1 л в диаметре. Осенью его листья окрашиваются в красно-бурый цвет и опадают в октябре — декабре. Бук крупнолистный используется в садах и парках южных районов России как декоративное дерево. В отличие от лесов Северной Америки в буковых лесах Евразии почти отсутствует травяной покров и ярус кустарников. В Евразии на 40 параллели нет природных зон смешанных и широколиственных лесов и зоны тайги. В Северной Америке нет природной зоны переменно – влажных муссонных лесов.
nl,n2:integer; { числа, НОД которых надо найти }
nod:integer; { наибольший общий делитель }
г:integer; { остаток от деления nl на п2 }
begin
writeln('Вычисление наибольшего общего делителя');
writeln('для двух целых чисел.');
write('Введите в одной строке два числа ');
writeln('и нажмите <Enter>');
write('->');
readln(nl,n2);
while (nl mod n2)<>0 do
begin
r:=nl mod n2; { остаток от деления}
nl:=n2;
n2:=r;
end;
nod:=n2;
writeln('НОД чисел ',nl,' и ',п2,' это ',nod);
readln;
end.