Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
О
ОБЖ
У
Українська мова
Д
Другие предметы
Х
Химия
М
Музыка
Н
Немецкий язык
Б
Беларуская мова
Э
Экономика
Ф
Физика
Б
Биология
О
Окружающий мир
Р
Русский язык
У
Українська література
Ф
Французский язык
П
Психология
А
Алгебра
О
Обществознание
М
МХК
В
Видео-ответы
Г
География
П
Право
Г
Геометрия
А
Английский язык
И
Информатика
Қ
Қазақ тiлi
Л
Литература
И
История
Показать больше
Показать меньше
tanyaonuchkomailru
09.02.2023 10:31 •
Информатика
Вычислить 1*2+2**(n+1) паскаль цикл while
Показать ответ
Ответ:
F228o228X
16.08.2020 17:23
Var
n: integer;
ans: int64;
begin
Readln(n);
ans := 1;n:=n+1;
while (n > 1) do
begin
ans := ans * n;
n := n - 1;
end;
Writeln(ans);
end.
Пример:
2
6
0,0
(0 оценок)
Популярные вопросы: Информатика
braskyn
22.09.2022 16:21
как известно, комета бармалея видна с земли каждые с лет. любопытно, что этопроисходит в годы, кратные с, т.е. c, 2 x c, 3 х си т.д. не каждому сужденоувидеть эту комету...
milanalive65
10.10.2022 03:09
купец на рынок рулон сукна длиной n вершков, но для уплаты пошлины ему нужно указать длину сукна в саженях, аршинах, пядях и вершках. ему – переведите длину сукна, записанного...
Dashaaleshenko
28.02.2023 15:45
Втетради создать структуру бд «студенты», содержащую сведения о в таблице студентах. бд организовать в виде 4 таблиц: «фио», «курс», «специальность_факультет», «дисциплина»....
Lanatm12
07.01.2021 10:14
Найти значение выражения (k + l) + (n – m) , если к=2с16, l=378, м=2, n=2810. для этого: 1. перевести каждое число сначала в десятичную, а потом в двоичную систему 2....
EmiliKotik123
28.01.2020 21:12
Оформить для кумира. напишите программу, которая получает два целых числа a и b (0 a b) и выводит квадраты всех натуральных чисел в интервале от a до b. пример: введите...
Nika34562
23.06.2021 04:09
Счем в отличие от обычной оперирует логики? почему логики иначе называют переключательной ?...
Вико1234
04.11.2021 15:46
Айым создала игру-путешествие по столице нашей страны. на рисунке изображена одна из сцен ее программы. 1. запиши названия двух переменных, которые она использовала 1)...
zilola3
06.03.2022 18:59
Сколько сторон учавствует в процессе передачи информации...
para656
03.10.2021 16:34
Переведите число 23е16 в десятичную систему счисления...
11.11.2020 21:23
Напишите номера оттенков основных цветов которые надо смешать чтобы получить жёлтый...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
n: integer;
ans: int64;
begin
Readln(n);
ans := 1;n:=n+1;
while (n > 1) do
begin
ans := ans * n;
n := n - 1;
end;
Writeln(ans);
end.
Пример:
2
6