var i,n, result:integer;//определяем переменные
begin
result := 1;//начальное значение - 1. Иначе при умножении на 0 будет всегда 0
readln(n);//вводим число, факториал которого надо найти
while n > 1 do//пока н не будет меньше, выполняем тело
begin
result := result * n;//Вычисляем факториал по принципу: С конца к началу. умножаем 5 на 1(начальное значение result), потом 4 на значение результ) потом 3 на 20 и тп
n := n - 1;//отнимаем от n 1 и переходим с предыдущему числу
end;
writeln('Факториал = ', result);
end.
Возможны следующие действия:
- Перемещение/копирование;
- Полное/временное* удаление файлов;
- Открытие/закрытие объектов;
- Переименование объектов;
- Изменение прав доступа, скрытие;
- Просмотр сведений (свойств) объектов;
- Архивирование/разорхивирование и пр.
*временное удаление данных с возможностью восстановления - перемещение объектов в "корзину";
полное удаление данных без возможности восстановления - удаление объекта(-ов) из корзины, восстановить данные без специальных утилит (программ) будет невозможно.
