Войти
Регистрация
Спроси ai-bota
В
Все
У
Українська література
Г
Геометрия
Д
Другие предметы
Э
Экономика
Г
География
О
ОБЖ
М
Математика
М
МХК
Х
Химия
Қ
Қазақ тiлi
Л
Литература
У
Українська мова
О
Обществознание
Ф
Физика
А
Английский язык
А
Алгебра
И
История
Б
Беларуская мова
Б
Биология
М
Музыка
П
Право
И
Информатика
П
Психология
В
Видео-ответы
Н
Немецкий язык
Ф
Французский язык
О
Окружающий мир
Р
Русский язык
Показать больше
Показать меньше
pornuxa1
01.09.2022 18:30 •
Информатика
Вычислить 1*2+2**(n+1) паскаль цикл while
Ответ:
301222
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 оценок)
Популярные вопросы: Информатика
Angelochek02
31.01.2020 03:00
Оформить презентацию в программе Power Point по теме: Цветные металлы и сплавы...
Dumbass1007
20.03.2021 14:30
Нужно) на компьютере есть такая программа для для презентаций. там можно сделать визитки, но дело в том. что я сделала визитку в виде слайда, но мне нужно сохранить то .что получилось,...
shkuta03
15.12.2021 17:08
1. переведіть 2 мб в кб, байти, біти...
TToMoLLIHuK1
05.12.2022 21:01
Дан целочисленный массив из 50 элементов. элементы массива могут принимать значения от –500 до 500. напишите программу, которая находит и выводит среднее арифметическое всех элементов...
Sili12
05.12.2022 21:01
Составить таблицы сложения и умножения в троичной системе счисления и выполнить вычисления : 12+22; 221-11; 21×2; 11: 2 ....
золотесерце
06.06.2020 19:18
Дана программа: program chisla; var a, b, c, d: integer; begin writeln ( введите a: ); readln (a); writeln ( введите b: ); readln (b); c: =sqr(a+b); d: =sqr(a)+sqr(b); writeln...
Dick666
06.06.2020 19:18
Що може бути розміщено на слайдах комп ютерної презентації! будь ласка,як швидше....
Лиза090401
18.05.2022 01:41
Что такое шрифт, абзац, редактирование, буфер обмена, стили и для чего они нужны (главное меню microsoft word)...
sayhun
19.05.2023 20:43
Напишите программу определения весовой категории в зависимости от веса спортсмена всего существует четыре весовые категории 1) лёгкая-вес спортсмена менее 62 кг 2) средняя -от...
Лаймик0
03.05.2020 13:21
Паскаль () дан двумерный массив в [1..4; 1..2] random [-50; 50] найти среднее арефметическое всех положительных чисел найти: s: =? ; k: =?...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
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