Предмет: Информатика,
автор: Барби67
Составить программу для нахождения произведение чисел от 1 до n.
Для циклов:
1)for
2)while
3)until
Ответы
Автор ответа:
0
//Pascal
var
a, p: word;
i, n: integer;
begin
readln(n);
//цикл for
p := 1;
for i := 1 to n do
p := p * i;
writeln(p);
//цикл while
i := 1;
p := 1;
while i <= n do
begin
p := p * i;
i := i + 1;
end;
writeln(p);
//цикл repeat
i := 1;
p := 1;
repeat
p := p * i;
i := i + 1;
until i > n;
writeln(p);
end.
var
a, p: word;
i, n: integer;
begin
readln(n);
//цикл for
p := 1;
for i := 1 to n do
p := p * i;
writeln(p);
//цикл while
i := 1;
p := 1;
while i <= n do
begin
p := p * i;
i := i + 1;
end;
writeln(p);
//цикл repeat
i := 1;
p := 1;
repeat
p := p * i;
i := i + 1;
until i > n;
writeln(p);
end.
Похожие вопросы
Предмет: Литература,
автор: misrihanovaselvira
Предмет: Литература,
автор: Аноним
Предмет: История,
автор: art1st49
Предмет: Информатика,
автор: pgpi
Предмет: Химия,
автор: Vasek2345