Mail.ru
Почта
Мой Мир
Одноклассники
ВКонтакте
Игры
Знакомства
Новости
Календарь
Облако
Заметки
Все проекты
Все проекты
выход
Регистрация
Вход
Категории
Все вопросы проекта
Компьютеры, Интернет
Темы для взрослых
Авто, Мото
Красота и Здоровье
Товары и Услуги
Бизнес, Финансы
Наука, Техника, Языки
Философия, Непознанное
Города и Страны
Образование
Фотография, Видеосъемка
Гороскопы, Магия, Гадания
Общество, Политика, СМИ
Юридическая консультация
Досуг, Развлечения
Путешествия, Туризм
Юмор
Еда, Кулинария
Работа, Карьера
О проектах Mail.ru
Животные, Растения
Семья, Дом, Дети
Другое
Знакомства, Любовь, Отношения
Спорт
Золотой фонд
Искусство и Культура
Стиль, Мода, Звезды
Полный список
Спросить
Лидеры
Поиск по вопросам
Ответы Mail.ru
Программирование
Android
C/C++
C#
iOS
Java
JavaScript
jQuery
SQL
Perl
PHP
Python
Веб-дизайн
Верстка, CSS, HTML, SVG
Системное администрирование
Другие языки и технологии
Вопросы - лидеры.
Помогите пожалуйста! Не работает рендеринг частиц в приложении Blender 3D.
1 ставка
Вывод экрана с телефона на пк ошибка с Традиционным windows плеером
1 ставка
Лидеры категории
Лена-пена
Искусственный Интеллект
М.И.
Искусственный Интеллект
Y.Nine
Искусственный Интеллект
•••
Напишите программу в Паскале (очень нужноо, быстро) n в 1 степени=n*2*3*n (цикл for) b 1=1*2*3*4*5=120 (цикл white)
Людмила Теребунцева
Ученик
(219), закрыт
9 лет назад
Лучший ответ
Саня Семенов
Оракул
(60391)
9 лет назад
Это наверно факториал.
А для факториала надо писать фунуцию такую вот
pastebin.com/hApqjRzQ
Остальные ответы
Alexey N
Просветленный
(34745)
9 лет назад
(loof for x from 1 to n
(setq r (* r x)))
Людмила Теребунцева
Ученик (219)
9 лет назад
А полный текст программ. можете написать?
Alexey N
Просветленный (34745) А это и есть полный текст программы.
johnsilver
Просветленный
(22483)
9 лет назад
Быстро, но не тестировал
sum:=0;
i:=1;
while sum<120 do
begin
sum:=sum*i;
inc(i);
end;
Антон Хрусталёв
Ученик
(207)
9 лет назад
sum:=0;
i:=1;
while sum<120 do
begin
sum:=sum*i;
inc(i);
end;
и всё
.
Ученик
(0)
9 лет назад
sum:=0;
i:=1;
while sum<120 do
begin
sum:=sum*i;
inc(i);
end;
Похожие вопросы