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

Вычислить 1*2+2**(n+1) паскаль цикл while

Ответ:

yuliyasecheva

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 оценок)

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

ваня323232233

15.12.2022 14:22

В каком виде представлен данный алгоритм? началоabS=a+bSконецПрограммный кодБлок - схемаПсевдокодУстный это СОР 13 минут осталась...

Nikita20330

13.09.2021 03:16

Установить 60, 20 линия к 20, 60 линия к 180, 60 линия к 140, 20 линия к 60, 20 прямоугольник 60,80,100,60 прямоугольник 100,120,150,60 окружность 140,40,10...

wertuos1234

16.03.2021 15:55

Что не относится к основным характеристикам проектора? 1) разрешение 2) соотношение сторон 3) угол обзор 4) скорость показа !...

nastyaTYANnastya

16.03.2021 15:55

Turbo pascal создайте массив, содержащий 20 различных целых чисел. отсортируйте первую половину массива по возрастанию, а вторую по убыванию. все четные элементы...

Gabela01

20.03.2022 05:54

Программирование на языке паскаль вычислить значение у для х заданному с клавиатуры по формуле y=1-x,если x 0 1+x,если x 10...

zakopirinina

04.04.2021 18:57

Описать процедуру rectdiag(a, b, d), вычисляющую диагональ прямоугольника со сторонами a, b (a, b — входные, d — выходной параметр вещественного типа)....

rfhfntkm7p06pep

04.04.2021 18:57

Как в паскале авс сделать вот такой вывод на экран: - - - т.е чтобы каждая строка начиналась с этого знака?...

Damira123451

04.04.2021 18:57

Описать функцию del(x), находящую наибольший целый делитель натурального числа х....

Bitco

21.04.2023 21:27

Паскаль. найти сумму произведений последовательности чисел s: =1*1+2*2+3*3+4**n. n введите с клавиатуры....

viktoriadog

21.04.2023 21:27

Световое табло состаит из лампочек каждая из которых может находится в двух состояниях: включено или выключено . какое наименьшее количество лампочек должно находится...

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

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