Pavel
Гуру
(3445)
14 лет назад
function factorial(x:integer):integer;
begin
if (x=1) then factorial:=1;
if x>1 then factorial:= factorial(x-1)*x;
end;
procedure TForm1.Button1Click(Sender: TObject);
var i, t : integer;
begin
memo1.Lines.Clear;
t:=strtoint(Edit1.text);
Memo1.Lines.Add(inttostr(factorial(t)))
end;