Войти
Регистрация
Спроси ai-bota
В
Все
У
Українська література
Г
Геометрия
Д
Другие предметы
Э
Экономика
Г
География
О
ОБЖ
М
Математика
М
МХК
Х
Химия
Қ
Қазақ тiлi
Л
Литература
У
Українська мова
О
Обществознание
Ф
Физика
А
Английский язык
А
Алгебра
И
История
Б
Беларуская мова
Б
Биология
М
Музыка
П
Право
И
Информатика
П
Психология
В
Видео-ответы
Н
Немецкий язык
Ф
Французский язык
О
Окружающий мир
Р
Русский язык
Показать больше
Показать меньше
Sofa9111
26.08.2020 03:36 •
Информатика
Дано целое число n(> 0). найти сумму (1+2)^2+(2+3)^2++(n+(n+1))^2 написать программу для pascal
Ответ:
tyulegenevapolina
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 оценок)
Популярные вопросы: Информатика
munur
20.03.2023 06:08
как называют количество цифр, составляющих алфавит системы счисления? информатика 8 класс....
максим1503889900
09.06.2022 08:07
Заполнить массив из 12 элементов...
aigulzhan
22.08.2021 02:29
Сколько битов информации содержит один символ шестнадцатиричного числа...
езо1
22.08.2021 02:29
Превратитесь одно слово в другое,всякий раз заменяя по 1 букве так ,чтобы новое слово было ,,сущ.в и. а),коза 1)наказание 2)древесная б)вол, 1)оценка 2) животное в) 1)имени горького...
vasutа
25.04.2021 05:08
Как засекречивают числовую информацию...
kulakov2003
12.07.2020 08:09
Надо. запишите внутреннее представление следующих десятичных чисел, используя 16-разрядную ячейку: а) -15098 б) 6524 в) -28987...
Ruzlet
12.07.2020 08:09
Текст закодирован кодовой таблицей кои-8. определить объем информации выражения в битах: тысячи путей ведут к заблуждению, к истине- только один....
sveta7up
19.07.2022 00:31
По данным электронной таблице определите чему будет равно значение в ячейке D5?...
vanyabond2611
10.08.2022 09:46
ИНФОРМАТИКА (простое задание) Множество A содержит натуральные числа из отрезка [15..30]. Множество B содержит натуральные числа из отрезка [23..40]. Сколько чисел из множества...
ElizabethFoxEl
12.05.2021 08:03
Определить информационный объем в кбайтах моноаудиофайла длительностью звучания 8 сек при глубине звука 8 бит и частоте 8 кгц...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
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.