Вычислите произведение всех натуральных чисел от 1 до N. N- натуральное, не превосходит...

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.