Жил был в памяти маленький Бит. Он был очень одиноким и по этому сильно грустил, как то раз он пошел искать себе друзей. Идет он из микропроцессора древнего в страну памяти Оперативной по пути осматривая удевительный мир системной шины. Долго бродит Бит по шине, пока однажды не нашел Ячейку!Зайдя в ячейку Бит удивился, там было еще семь таких же одиноких малышей как и он сам (и всех их звали Бит LOL) и стали они дружить и стали звать их Байт!Но друзья подумали, а что, если есть еще такие же одинокие малыши, какими были раньше мы сами? Как они справятся с этой бренной жизьню в одиночку, без и заботы? И решили тогда они восьмером что-бы то нистало, найти всех одиноких Битов и обьеденить их, что-бы жить всем вместе годы...Спустя всё это время наши маленькие друзья все искали одиноких Битов, и их становилось всё больше, они обьеденялись в Байты, а затем и в Мегабайты.Однажды их количество перевалило за Гигабайт, но друзья не останавливались и всё искали и искали, искали и искали, пока... Нехватка системной памяти. Конец.
Т.к. требуется использовать цикл 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.
Объяснение: