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

MyNameIsLiza123 MyNameIsLiza123    3   19.04.2019 07:17    1

Ответы
klikedfrite klikedfrite  08.06.2020 00:22

Объяснение:

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.

ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика