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

Дано целое число n(> 0). найти сумму (1+2)^2+(2+3)^2++(n+(n+1))^2 написать программу для pascal

Ответ:

yuriygabr

04.10.2020 05:29

Program xxx;
var N, Sum: integer;
var i: byte;
begin
writeln ('введите N');
readln (N);
Sum:=0;
for i:=1 to N do begin
Sum:=Sum+sqr(i+(i+1))
end;
writeln (Sum)
end.

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

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

monsterhi003

08.10.2020 04:13

Pascal: в области 10 районов. для каждого района известны площади, засеянные пшеницей и урожай собранный с этих площадей. определить, в каком районе средняя урожайность...

jkh40949

08.10.2020 04:13

Pascal: дан двумерный массив, который содержит не более 10 строк и не более 10 столбцов. найти сумму элементов, которые расположены за максимальным элементом....

помогитепожалуйста95

15.05.2020 17:10

Требуется найти самую длинную непрерывную цепочку нулей в последовательности нулей и единиц. пример сделать без использования массивов и на языке паскаль абс....

kozakova13

15.05.2020 17:10

1. переведіть подані числа: - у двійкову систему 127 (10) ; в скобочке это номер внизу - у десяткову систему 1011100(2); - у вісімкову 4598(10); - у десяткову в5е(16)....

zimogo121

07.01.2021 11:05

Группа слов,которая выражает законченную мысль...

mariya191215

24.05.2020 18:36

Формирование изображения на экране монитора 4. Графический файл содержит чёрно-белое несжатое рас-тровое изображение с 16 градациями серого цвета раз-мером 10 х 10 пикселей....

yoyo97

22.12.2021 03:45

Ввести с клавиатуры два натуральных числа и сравнить количество шагов цикла для вычисления их НОД с обычного и модифицированного алгоритмов Евклида. На Паскале...

Пони2000

25.03.2021 19:00

Какой список называется пустым?...

dianakazaryan1

03.05.2022 17:39

Какие существуют виды языков програмирования...

Deelay

21.09.2020 09:51

Место большого скопления полезных ископаемых...

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

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