Школа программиста

Забыли пароль?
[задачи] [курсы] [олимпиады] [регистрация]
Логин:   Пароль:    
Скрыть меню
О школе
Правила
Олимпиады
Фотоальбом
Гостевая
Форум
Чат
Архив олимпиад
Архив задач
Состояние системы
Рейтинг
Курсы
Новичкам
Работа в системе
Алгоритмы
Курсы ККДП
Дистрибутивы
Ссылки

HotLog


 
{ рекурсивные алгоритмы: вычисление факториала }
var n:integer;

function f(x:integer):longint;
begin
   if x = 1 then f := 1 else f := x * f(x-1);
end;

begin
     writeln('введите N (N=1..13)');
     readln(n);
     writeln('N!=',f(n));
end.


Красноярский краевой Дворец пионеров, (c)2006 - 2017, ICQ: 151483