Войти Регистрация Спроси ai-bota

Найти n! (n! =1234 *n) число n запросить с клавиатуры

Ответ:

paris555

08.10.2020 10:51

//PascalABC.NET
//Версия 3.3.5, сборка 1650
begin
var n:=ReadInteger('n=');
write(n,'!=',range(1,n).Aggregate(Real(1),(a,b)->a*b));
end.

0,0(0 оценок)

Ответ:

виолетта409

08.10.2020 10:51

Var a,b: integer; begin b := 1; Readln(a); for var i := 1 to a do b := b * i; Writeln(b); end.

0,0(0 оценок)

Популярные вопросы: Информатика

Flvme

17.10.2020 00:49

Составить алгоритм перевода саженей в метры для значений длин от 1 до 20 саженей....

Крейми51

17.10.2020 00:49

Из бега в шаг составить слова в 7 позиций...

panevin33vladik

28.01.2021 17:35

Дан целочисленный список, состоящий из трех элементов -1, 2, 3. Сколько возможных перестановок можно выполнить для трех элементов? Для четырех?...

сойдет2

11.11.2022 12:47

Внимательно изучите пример решения задачи, рассмотренный в презентации, прикрепленной к заданию. Аналогичным образом выполните задание:...

dani61

06.03.2022 03:31

Нужен код для python, который накопит сумму чисел, равную 100 (диапазон чисел от 1 до 10), а если сумма выходит больше 100, чтобы результат обнулялся...

ладнобудеттакойник

26.10.2020 01:08

Вопрос №1 ? Команда у=int(х) . превращает текстовую переменную х на дробную переменную у превращает текстовую переменную х в целочисленную переменную y превращает целые числа...

nataalferova8

17.05.2022 14:15

1. Информатика долгое время рассматривалась как …...

seryogasaprikin

05.02.2022 00:59

В чём по назначению сходство и различие монитора и принтера не копируйте из какиз либо сайтов....

flopeNIX

30.12.2021 10:30

Информатика – особая наука, которая …....

СлишкомУмная1

16.09.2021 16:06

1. Расскажите о возможностях MS Word....

Полный доступ

Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку