Программа на паскале (программа - это один из способов записи алгоритма).
var n,p,i:integer;
begin
write('n = ');
readln(n);
p:=1;
for i:=1 to n do p:=p*i;
writeln('p = ',p);
end.
Пример:
n = 7
p = 5040
Вот, на прямоугольнике срабатывает точно, и, по логике, на другоугольниках должно сработать))
Var
a:array[1..10] of integer;
i,c:integer;
Begin
for i:= 1 to 10 do Begin
write('Введите ',i,' - ый элемент массива ');
readln(a[i]);
End;
Write('Индексы элементов, больших 5 - (');
for i:= 1 to 10 do
if a[i]>5 then Begin
write(i,' '); c:=1;
end;
if c=0 then write('Таких нет)') else write(')');
end.
Var
i,s:integer;
begin
writeln('Введите стоимость');
readln(s);
for i:=1 to 10 do
writeln(i*s);
<span>end.</span>
function Hanoi(n: integer): uint64;
begin
if n = 1 then
begin
Result:=1;
exit();
end
else
begin
Result:=2 * Hanoi(n-1) + 1;
end;
end;
begin
writeln(hanoi(64));
end.