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

Вычислить 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 Оформи подписку