Т.к. требуется использовать цикл until, то значит требуется код на языке Паскаль.
1) цикл for
program p_for
var
p: real;
i, n: integer;
begin
readln(n);
p := 1;//начальное значение
for i := 1 to n do
p := p * i;
writeln(p);
end.
2) цикл while
program p_while
var
p: real;
i, n: integer;
begin
readln(n);
i := 1;
p := 1;//начальное значение
while i <= n do
begin
p := p * i;
i := i + 1;
end;
writeln(p);
end.
3) цикл until
program p_until
var
p: real;
i, n: integer;
begin
readln(n);
i := 1;
p := 1;//начальное значение
repeat
p := p * i;
i := i + 1;
until i > n;
writeln(p);
end.
Объяснение:
Что ?
Объяснение:
Саха́ра (араб. الصحراء الكبرى, Эс-Сахра-эль-Кубра; фр. Sahara) — крупнейшая жаркая пустыня и вторая, после Антарктической, пустыня на Земле, расположенная на севере Африканского континента. Вытянута примерно на 4800 км с запада на восток и от 800 до 1200 км с севера на юг; имеет площадь около 8,6 млн км² (около 30 % площади Африки, немногим больше площади Бразилии). С запада Сахара омывается Атлантическим океаном, с севера ограничена горами Атлас и Средиземным морем, а с востока — Красным морем. Южная граница пустыни определяется зоной малоподвижных древних песчаных дюн на 16° с.ш., к югу от которой располагаетсяСахель — переходный регион к Суданской саванне[1].
Сахара частично захватывает территорию более десяти государств —Алжира, Египта, Западной Сахары, Ливии, Мавритании, Мали,Марокко, Нигера, Судана, Туниса и Чада. Обширные пространства Сахары не заселены, оседлый образ жизни ограничен районамиоазисов, долинами рек Нил и Нигер.
Сахара не поддаётся категоризации в рамках одного типа пустыни, хотя преобладающим является песчано-каменистый тип. В составе пустыни различают множество регионов: Тенере, Большой Восточный Эрг, Большой Западный Эрг, Танезруфт, Эль-Хамра, Игиди, Эрг-Шеш,Аравийскую, Алжирскую, Ливийскую, Нубийскую пустыни, пустынюТалак.
Сахара постоянно увеличивается — каждый год пустыня расширяется к югу на 6÷10 км[2].
