Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
Показать больше
Показать меньше
nikitazaharov28
04.10.2022 17:58 •
Информатика
Вычислить 1*2+2**(n+1) паскаль цикл while
Показать ответ
Ответ:
VaReNiK37
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 оценок)
Популярные вопросы: Информатика
Dasěuke345
25.06.2022 21:29
Постройте схему для логического выражения ...
111111199
23.08.2020 22:36
Информатика 8 класс решите эту фигню...
anyr04
05.02.2020 06:14
Что такое растровая графика? Оцените сколько примерно будет занимать памяти рисунок размером 40х30 пикселей, закодированный в режиме High Color. Что в данной оценке...
Klininoolp
13.04.2021 13:36
Який загальний выгляд мае команда цыклу зличильником...
vergos86slobode
20.01.2021 16:22
Составить доклад по информатике : тема лазерный принтер доклад лазерный принтер....
katiaj07102004
20.01.2021 16:22
Требуется определить является ли данный год високосным.(напомним, что год является високосным , если его номер кратен 4, но не кратен 100, а также если он кратен 400.)...
polinamunteanu
03.08.2020 21:26
Максимальное целое n, такое, что f=n! умещается в переменной типа integ er....
истоиия
01.11.2020 04:35
Аneed for speed поддерживает джостик? (беспроводной android) ...
123456sa
17.04.2021 22:22
Составить алгоритм решения для определения большего из двух вещественных чисел. составить блок-схему и псевдокод( на ) входные и выходные данные....
alinaLodygina
12.03.2021 16:03
Дано целое число n( 1). составить алгоритм наибольшего целого к, при котором выполняется неравенство 3к...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и 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