Ответы на вопрос:
Т.к. требуется использовать цикл 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.
Объяснение:
Популярно: Информатика
-
Кот92813.12.2021 09:48
-
arturimbo22.06.2023 17:10
-
МилаКу15.06.2022 21:22
-
аня293430.08.2020 03:50
-
Themrg25.03.2023 02:40
-
anastasiaaa1611.11.2021 12:11
-
Sane199915.04.2022 17:05
-
Sasha03kms16.10.2020 17:21
-
lowrentij28.08.2021 07:18
-
565765g04.03.2023 02:16