You cannot select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
34 lines
527 B
Plaintext
34 lines
527 B
Plaintext
6 years ago
|
program faculty;
|
||
|
|
|
||
|
|
function faculty_it(num: integer) : longint;
|
||
|
|
var
|
||
|
|
val: longint = 1;
|
||
|
|
i: integer;
|
||
|
|
|
||
|
|
begin
|
||
|
|
for i := 2 to num do
|
||
|
|
begin
|
||
|
|
val := val * i;
|
||
|
|
end;
|
||
|
|
faculty_it := val;
|
||
|
|
end;
|
||
|
|
|
||
|
|
function faculty_rec(num: integer): longint;
|
||
|
|
begin
|
||
|
|
if num = 1 then
|
||
|
|
faculty_rec := num
|
||
|
|
else
|
||
|
|
faculty_rec := num * faculty_rec(num-1);
|
||
|
|
end;
|
||
|
|
|
||
|
|
var
|
||
|
|
input : integer;
|
||
|
|
|
||
|
|
begin
|
||
|
|
Writeln('Number: ');
|
||
|
|
Read(input);
|
||
|
|
Writeln;
|
||
|
|
Writeln('Faculty IT: ', faculty_it(input));
|
||
|
|
Writeln('Faculty REC: ', faculty_rec(input));
|
||
|
|
|
||
|
|
end.
|