Напишите программу, которая вычисляет факториал натурального числа n ( 1 ≤ n ≤ 10000 ), сохранив все значащие цифры. факториалом называется произведение всех натуральных чисел от 1 до n : n ! = 1·2· ( n - 1)· n .
Program n1; var n, i: integer; p: real; begin write('Введите n: '); readln(n); if (n>=1) and (n<=10000) then begin p := 1; for i := 2 to n do p := p * i; writeln(n, '! = ', p); end; end.
вот такую херь я нарыл курсе "Компетенции преподавателя электронного обучения" "1. Насколько вас устроил уровень организации мероприятия? Устроил полностью. 2. Какие информационные блоки вы отметили бы особенно и почему? Зарубежный опыт организации ЭО, что это не дело рук одного преподавателя, а коллектива. 3. Какова практическая ценность полученных материалов? Метод знакомиться со студентами в ЭС, потому что не всегда хватает очных занятий для этого. 4. На какие проблемы стоит обратить внимание? Работа в группах при таком большом потоке слушателей сложна в организации, в результате идеи мы представляли, а обратной связи не было, поэтому это было больше развлечением, чем практически ценным. 5. Какие рекомендации и пожелания вы можете для нас оставить? Больше практики. И ИНЭО все таки закупить ПО для более качественного обеспечения работы преподавателя в ТПУ в ЭС, а не пользоваться бесплатными ресурсами интернета, накладывающими свои рекламные логотипы. ". А.В. Жаворонок, кафедра экономики, ассистент О курсе "Организация учебного процесса с использованием технологий электронного обучения по смешанной модели (на основе LMS Moodle и других инструментов и сервисов ЭО за совместную работу, в целом все было замечательно. По курсу Разработка электронного курса по дисциплине на базе LMS Moodle с использованием инструментов и сервисов электронного обучения все отлично, к координаторам можно было всегда подойти и уточнить возникшие во По второму курсу Организация учебного процесса с использованием технологий электронного обучения по смешанной модели (на основе LMS Moodle и других инструментов и сервисов ЭО) я столкнулась со странной стратегией - время вебинаров не совпадало с заявленным и начало вебинара не было прописано в календаре (было бы лучше указывать точное время вебинара в календаре, т.к. календарем пользуются) (и да, только первое началось в указанное время). Мне очень было жаль технарей, т.к. не все термины из педагогики/сетодики им были знакомы. Здесь нужно составить хотя бы мини-глоссарий с наиболее употребляемыми терминами из методики и педагогики (которые позднее будут использованы в презентациях). Эти моменты действительно были самыми запоминающимися, опять-таки, повторюсь, но организаторы курса практически сразу реагировали на сообщения, отвечали и оставляли комментарии по работе. (мне конечно же хотелось получать ответ сразу после моего выложенного, но здесь была своя система, вероятно, по причине большого количества курсантов). Мне кажется, был некоторый перегруз теорией и заданиями, особенно последние два - они были слишком энергозатратными. (Вот, цель 3 лекции не ясна - во к лекции нет, видимо, только лишь для ознакомления)... Данный курс повышения квалификации и нужный, и полезный, задания, необходимые для выполнения, заставляют мозг работать в усиленном режиме большое преподавателям, которые с нами работали и до нас пытались донести все значимое!" Н.В. Аксенова, кафедра иностранных языков института кибернетики, старший преподаватель .
Рассмотрим различные варианты слов из 20 букв, которые содержат 18 букв Т (звёздочка обозначает любую из оставшихся 10 букв): ТТТТТТТТТТТТТТТТТТ** ТТТТТТТТТТТТТТТТТ**Т ... **ТТТТТТТТТТТТТТТТТТ - 19 вариантов
ТТТТТТТТТТТТТТТТТ*Т* ТТТТТТТТТТТТТТТТ*ТТ* ТТТТТТТТТТТТТТТ*ТТТ* ... *ТТТТТТТТТТТТТТТТТТ* - 18 вариантов
Для решения задачи можно также использовать формулу для вычисления числа перестановок с повторениями: P(nт,n*) = (18+2)!/(18!*2!) = 20!/(18!*2!) = 19*20/2 = 190
Вместо каждой из "*" может стоять любой из десяти символов (кроме Т), то есть на каждую из 190 перестановок мы имеем 10^2 = 100 вариантов распределения остальных символов на месте звёздочек. Общее количество вариантов = 190*100 = 19000
var
n, i: integer;
p: real;
begin
write('Введите n: ');
readln(n);
if (n>=1) and (n<=10000) then
begin
p := 1;
for i := 2 to n do
p := p * i;
writeln(n, '! = ', p);
end;
end.