Mail.ruПочтаМой МирОдноклассникиВКонтактеИгрыЗнакомстваНовостиКалендарьОблакоЗаметкиВсе проекты

нужен ключ для активации ФотоДЕКОР: Базовая версия, плиз!!!!

Пользователь удален Ученик (96), на голосовании 14 лет назад
пробная версия закончилась требует ввести ключ
Голосование за лучший ответ
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;

Похожие вопросы