Нужно создать модуль - Pascal ABC

Формулировка задачи:

Нужно написать модуль вот для этой программы:
uses crt;
var i,n:integer;
function fact_2(n:integer):real;
begin
if n=1 then fact_2:=1
else if n=2 then fact_2:=2
else fact_2:=n*fact_2(n-2);
end;
begin
clrscr;
repeat
Write('Vvedite n: ');
Readln(n);
Writeln('n!!=',fact_2(n));
inc(i);
until i=3;
readln;
end.

Код к задаче: «Нужно создать модуль - Pascal ABC»

textual
uses crt, my_unit;
var
  i, n : integer;
begin
  clrscr;
  repeat
    Write('Vvedite n: ');
    Readln(n);
    Writeln('n!!=',fact_2(n));
    inc(i)
  until i=3;
  readln
end.

10   голосов, оценка 4.300 из 5


СОХРАНИТЬ ССЫЛКУ