Question

составить программу которая r раз находит m! . значение r,m заполняются генератор случайных чисел с аргументом 6

Answer 1

Ответ:

Объяснение:

function factorial(n:integer):integer;

var

 i, p:integer;

begin

 p:=1;

 for i:=1 to n do

   p:=p*i;

 factorial:=p;

end;

var

 r, m:integer;

 k:integer;

begin

 randomize;

 r:=random(6);

 writeln('r = ', r);

 for k:=1 to r do begin

   m:=random(6);

   writeln(m, '! = ', factorial(m));

 end;

 readln;

end.