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

Вычислить 12+23++n(n+1). паскаль цикл while.

Ответ:

Мишка1911

07.10.2020 23:06

Program n1;
var n,i: integer;
sum: real;
begin
i:=0;
sum:=0;
readln(n);
while i<=n do
begin
sum:=sum+i*(i+1);
i:=i+1;
end;
write(sum);
end.

0,0(0 оценок)

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

ТаяDuda2133

02.12.2021 08:03

в решении двух : 1)сколько информации содержит в себе сообщение о том, что на поле 4х4 клетки одна из клеток закрашена? 2) в книге 512 страниц. сколько информации несет сообщение...

lisi2912

02.12.2021 08:03

Написать программу, которая проверяет представляет ли элементы введенного массива убывающую последовательность....

sonjа1503

02.12.2021 08:03

Решить : телеграмма : встречайте, вагон 7 несет 4 бита информации .сколько вагонов в составе поезда ?...

qq503

21.11.2021 01:00

. найти c если a 5,тогда с=2•x•y x=10; y=2...

MrDrozdik

16.12.2021 21:42

Дана строка, возможно, содержащая пробелы. Извлеките из этой строки все символы, являющиеся цифрами и составьте из них новую строку. Решение оформите в виде функции ExtractDigits...

Marmaladee

06.04.2022 08:49

Рисунок размером 2048 на 512 пикселей сохранили в виде несжатого файла размером 2,5 Мбайт. Какое количество информации было использовано для кодирования цвета пикселя? Каково максимально...

creator4567

16.11.2020 23:47

Как выполняются команды в линейном алгоритме? ответьте на вопрос....

michael48

16.11.2020 23:47

Составьте программу которая содержит функцию нахождения количества разрядов заданного числа не превосходящего 1000000000...

Evgsolnce

16.11.2020 23:47

Напишите программу, определяющую количество и сумму элементов массива целых случайных чисел, больших 50 и меньших 60....

nyutasova

16.11.2020 23:47

Определить k-количество трехзначных натуральных чисел,сумма цифр которых равна (1...

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

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