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

203

397

Посмотреть ответы 2

Ответы на вопрос:

SaShAkOT13

Информатика

4,4(45 оценок)

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.

Sофушка

Информатика

4,4(56 оценок)

Объяснение:

Пронумеруем записи фрагмента (для удобства):

Номер Автор Название Иллюстратор Год_издания

1 Чуковский Айболит Сутеев 2000

2 Ершов Конёк-Горбунок Дмитриев 1985

3 Ершов Конёк-Горбунок Кочергин 2013

4 Перро Красная Шапочка Дехтерев 2012

5 Берестов Весёлое лето Сутеев 1982

6 Чуковский Мойдодыр Сутеев 2012

7 Ершов Конёк-Горбунок Якшис 2012

8 Пушкин Руслан и Людмила Владимирский 2005

9 Чуковский Айболит Горбушин 2009

Условию (Иллюстратор = «Сутеев») удовлетворяют записи 1, 5 и 6

Условию (Год_издания > 2005) удовлетворяют записи 3, 4, 6, 7 и 9

Условию (Иллюстратор = «Сутеев») ИЛИ (Год_издания > 2005) удовлетворяют записи 1, 3, 4, 5, 6, 7 и 9 (итого 7 записей - дублирующиеся записи (6) дважды не считаем)