Т.к. требуется использовать цикл 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.
Объяснение:
Письмо - 100 г
Посылка - 5 кг
Телеграмма - 50 г
Бандероль - 500 г
Дядя Фёдор получил:
Писем - 8 шт.
Посылок - 3 шт.
Телеграмм - 7 шт.
Бандеролей - 1 шт.
Кот Матроскин получил:
Писем - 3 шт.
Посылок - 1 шт.
Телеграмм - 3 шт.
Бандеролей - 1 шт.
Пёс Шарик получил:
Писем - 0 шт.
Посылок - 3 шт.
Телеграмм - 0 шт.
Бандеролей - 4 шт.
Вся почта, доставленная Печкиным одного вида (кол-во):
Писем - 8+3+0=11 шт.
Посылок - 3+1+3=7 шт.
Телеграмм - 7+3+0=10 шт.
Бандеролей - 1+1+4=6 шт.
Вся почта, доставленная Печкиным одного вида (вес):
Писем - 100*11=1100 г
Посылок - 5*7=35 кг
Телеграмм - 50*10=500 г
Бандеролей - 500*6=3000 г
Первый товарищ - FOR
Цикл FOR используется в случае, если нам известно количество итераций.
for (счетчик = значение; счетчик < значение; шаг цикла) {
тело цикла;
}
Сначала присваивается первоначальное значение счетчику, после чего ставится точка с запятой.Затем задается конечное значение счетчика цикла. После того, как значение счетчика достигнет указанного предела, цикл завершится. Снова ставим точку с запятой. Задаем шаг цикла. Шаг цикла — это значение, на которое будет увеличиваться или уменьшаться счетчик цикла при каждом проходе.WHILE
Если мы не знаем количество итераций цикла, то используем while (или do - while)
while (Условие) {
Тело цикла;
}
Данный цикл будет выполняться, пока условие, указанное в круглых скобках является истиной.
DO-WHILE
Цикл do while очень похож на цикл while. Единственное различие между ними заключается в том, что при выполнении цикла do while цикл будет выполнен один раз не зависимо от условия.
do {
Тело цикла;
} while (Условие)
На рисунке слева - блок схема для for и while, справа do - while.