Question

Вычислите произведение всех натуральных чисел от 1 до N. N- натуральное, не превосходит 12. Помогите, пожалуйста, это очень срочно! (Алгоритмы с циклической структурой, Паскаль)

Answer 1

Program programma;
Uses crt;
var n,p,i: integer;
Begin clrscr;
      write('Введите число N = ');
      readln(n);
      p:=1;
     
if (n<=12) and (n>0) then begin
write('P=');
for i:=1 to n-1 do
    begin
    p:=p*i;
    write(i,'*');
    end;
p:=p*n;
write(n,'=', p);
end;
End.




или проще

Program programma;
Uses crt;

var n,p,i: integer;

Begin clrscr;
      write('Введите число N = ');
      readln(n);
      p:=1;
     
if (n<=12) and (n>0) then begin
write('P=');
for i:=1 to n do
    p:=p*i;
write(p);
end;
End.

Answer 2

Конечно, могу помочь вам с этой задачей. Чтобы вычислить произведение всех натуральных чисел от 1 до N, вам нужно использовать циклическую структуру. В Паскале это можно сделать с помощью цикла "for". Вот как выглядит алгоритм:

program CalculateFactorial;
var
  N, i: Integer;
  factorial: Integer;
begin
  writeln('Введите значение N:');
  readln(N);

// Инициализируем переменную factorial значением 1
  factorial := 1;

// Вычисляем произведение всех натуральных чисел от 1 до N
  for i := 1 to N do
  begin
    factorial := factorial * i;
  end;

// Выводим результат
  writeln('Произведение всех натуральных чисел от 1 до ', N, ' равно ', factorial);
end.

Этот код сначала запрашивает у пользователя значение N (не превосходящее 12). Затем он использует цикл "for", чтобы умножить переменную "factorial" на каждое натуральное число от 1 до N. Наконец, программа выводит результат, который представляет собой произведение всех этих чисел.

Просто скопируйте этот код в среду разработки Pascal и выполните его, введя значение N. Программа выведет произведение всех натуральных чисел от 1 до введенного числа N.