Войти
Регистрация
Спроси ai-bota
В
Все
Б
Биология
Б
Беларуская мова
У
Українська мова
А
Алгебра
Р
Русский язык
О
ОБЖ
И
История
Ф
Физика
Қ
Қазақ тiлi
О
Окружающий мир
Э
Экономика
Н
Немецкий язык
Х
Химия
П
Право
П
Психология
Д
Другие предметы
Л
Литература
Г
География
Ф
Французский язык
М
Математика
М
Музыка
А
Английский язык
М
МХК
У
Українська література
И
Информатика
О
Обществознание
Г
Геометрия
Показать больше
Показать меньше
valeriafds
20.06.2021 16:30 •
Информатика
Дано целое число n(n> 0). найти сумму 1+(1+n)^2+(2+n)^2++(n+n)^2
Показать ответ
Ответ:
wista196
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 оценок)
Ответ:
Yaroslav34364
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 оценок)
Популярные вопросы: Информатика
Amid05
26.03.2020 06:54
1) Дано: for i = : 1 to 19 do При первом выполнении тела цика. 2) сколько раз будет выполнен цикл for n : = 1 to 19 do? 3) Дана программа на языке Паскаль. Вывод на экран квадратов...
MashaEdinorog
09.02.2021 01:13
Логические функции и схемы основы элементной базы компьютера краткий конспект ...
stentani97
14.09.2021 08:33
Условный оператор if (x 2) then y:=x+9 else y:=x-29 выберите действие которое будет выполняться в случае истинности уравнения:x 2y:=x+9y:=x-29...
polina033
02.08.2021 20:25
Заполните таблицу по образцу, приведенному ниже, и выполните соответствующие вычисления. (Используйте статистические функции МАКС и СРЗНАЧ заранее...
pelmen123456789
18.07.2021 06:42
Начертите прямоугольный треугольник со сторонами АВ=5 см, АС=4 см, ВС=3 см. Определите значение sin, cos, tg угла А....
vegeg
17.04.2023 05:26
Өтінемін көмектесіңіз!...
английскийязык14
22.03.2020 10:31
Сделайте 10й номер! Это ,умоляю!...
1HM
01.03.2022 20:50
Америку - вышли в Атлантический океан? Тихий океан?...
GloriaMare
11.11.2020 13:15
Как различается рельеф южной и северной африки ‼️‼️‼️‼️...
natalya00786
18.01.2023 22:38
Решите информатику, нужно составить блок схемы . 1.ручка и карандаш стоят x и y рублей соответственно, сколько денег понадобится васе, чтобы купить а ручек и b карандашей. 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