Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
Показать больше
Показать меньше
shitovilya
12.09.2022 10:19 •
Информатика
Дано целое число n(n> 0). найти сумму 1+(1+n)^2+(2+n)^2++(n+n)^2
Показать ответ
Ответ:
PolinaRomanova174
05.10.2020 18:17
Var
S:real;
N,i:integer;
Begin
Write('N = ');
ReadLn(N);
S:=1;
For i:= 1 to N do
S:=S+Sqr(i+N);
WriteLn('S = ',S);
End.
0,0
(0 оценок)
Ответ:
поля875
05.10.2020 18:17
// PascalABC.NET 3.2, сборка 1389 от 01.03.2017
// Внимание! Если программа не работает, обновите версию!
begin
var n:=ReadInteger('n=');
var s:=1+Range(1,n).Select(i->sqr(i+n)).Sum;
Writeln('S=',s)
end.
Пример
n= 10
S=2486
0,0
(0 оценок)
Популярные вопросы: Информатика
11123323333323232233
31.07.2022 10:40
Решение логических . ученики писали контрольную по . на контрольной работе из-за болезни не было трёх : пети, жени и саши. им пришлось писать контрольную работу отдельно от всего...
Denis4345
02.02.2023 16:09
Решение логических . одиннадцатиклассники лёша, руслан и андрей руководили кружком учащихся третьих классов. на одном из занятий они предложили решить логическую , которую составил...
jutyra
18.02.2021 19:56
В состав прикладного программного обеспечения входят:...
kirillsolodov20
20.01.2020 02:28
Смотрите есть тег - это , а как другой вот это - какой он делается...
Gameskill
19.10.2022 12:26
Какой это шрифт в word? важно как он называется. я не смог найти. шрифт изображён на фотографии....
Children703
02.01.2020 16:05
Что делать нам людям у нас такая информация в интернете гуляет что вы думаете еще есть центр который проникает в мозг людей через выскоие технологий где бы они не находились и...
Ragman007
04.05.2022 18:59
Вчём сходство в сказкой и народной...
lilipute2017
04.05.2022 18:59
Впроизведении художественной найдите диалог, в котором каждая реплика дается с абзаца. запишите реплики в строчку....
tastapva
04.05.2022 18:59
Запишите названия зеленых многоклеточных водорослей, обитающих в морях и океанах...
angryhanry
04.05.2022 18:59
Весной у берёзы ,сделав разрез в коре,часто берут берёзовый сок. 1.от восходящего или нисходящего потока берут этот сок. 2.что произойдет с березой ,если у неё взять много сока...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
S:real;
N,i:integer;
Begin
Write('N = ');
ReadLn(N);
S:=1;
For i:= 1 to N do
S:=S+Sqr(i+N);
WriteLn('S = ',S);
End.
// PascalABC.NET 3.2, сборка 1389 от 01.03.2017
// Внимание! Если программа не работает, обновите версию!
begin
var n:=ReadInteger('n=');
var s:=1+Range(1,n).Select(i->sqr(i+n)).Sum;
Writeln('S=',s)
end.
Пример
n= 10
S=2486