Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
О
ОБЖ
У
Українська мова
Д
Другие предметы
Х
Химия
М
Музыка
Н
Немецкий язык
Б
Беларуская мова
Э
Экономика
Ф
Физика
Б
Биология
О
Окружающий мир
Р
Русский язык
У
Українська література
Ф
Французский язык
П
Психология
А
Алгебра
О
Обществознание
М
МХК
В
Видео-ответы
Г
География
П
Право
Г
Геометрия
А
Английский язык
И
Информатика
Қ
Қазақ тiлi
Л
Литература
И
История
Показать больше
Показать меньше
помогите1188
21.12.2021 15:49 •
Информатика
Решить в цикле for или while через pascal n^2+(n+1)^2+(n+2)^2++(2n)^2
Показать ответ
Ответ:
Bibi123456
08.10.2020 12:56
1. Современное решение
PascalABC.NET 3.3.5, сборка 1660 от 20.04.2018
Внимание! Если программа не работает, обновите версию!
begin
var n:=ReadInteger('n=');
Writeln('S=',SeqGen(n+1,i->Sqr(n+i)).Sum)
end.
Пример
n= 5
S=355
2. Примерно так часто учат в школе
var
s,i,n:integer;
begin
Write('n= ');
Read(n);
s:=0;
for i:=0 to n do
s:=s+Sqr(n+i);
Writeln('S=',s)
end.
0,0
(0 оценок)
Ответ:
Milkapilka11
08.10.2020 12:56
Var i, n, res: integer;
begin
res := 0;
write( 'n = ' );
readln(n);
for i := 1 to n do
res := res + (( n + i ) * ( n + i ));
res := res + n * n;
writeln( res );
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
данила305
17.06.2020 17:30
В рассмотренной 1 программе допиши «Компьютер хочет с тобой познакомиться и узнать твой возраст.» Итогом вывода на экран должно быть следующие, к примеру: Здравствуй, Елена,...
ampleev2002
14.10.2021 05:32
Напишите на эти вопросы ответы в тетради отличать датчик цвета от других датчиков; использовать разные режимы датчика цвета при движении робота;...
Alina25255
14.10.2020 16:19
Напишите программу , которая вычислит сумму числовой последовательности 1+8+16...8(n-1) и убедится , что она равна (2n-1)²...
Jastick
01.08.2021 01:55
5. С какого оператора реализуется цикл с постус- ловием?A) while.B) do ... while.C) for.D) Switch.E) if else....
masha3323
23.02.2021 14:30
Составить блок-схему и программу для нахождения значения выражения...
dfoddo
21.11.2021 21:35
Задание 3. Проанализируйте ситуации, найдите IIУТИ их решения. А) Одна из газет провела социологический о читателей. На во Верите ли вы торжество закона?» читатели ответили...
vovakornev2002
25.11.2022 00:54
Определите написанные здесь аккорды (3)...
help275
25.05.2020 14:13
Прочитайте: 1) 3,6 = 4; 2) 5,67 = 5,7; 3) 15,93 = 15,9; 4) 12,453 = 12,45. До якого розряду округлили число?...
ee444ed4
25.05.2020 14:13
Як діяльність Фрідріха ll посилила роздробленість Німеччини?...
Rayanachechenka
18.02.2022 23:32
Описати сво які види поведінки ви можете гати у свого домашнього улюбленця,якими діями вони проявляються?(1-2 приклади,не більше 5 речень)очень...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
1. Современное решение
PascalABC.NET 3.3.5, сборка 1660 от 20.04.2018
Внимание! Если программа не работает, обновите версию!
begin
var n:=ReadInteger('n=');
Writeln('S=',SeqGen(n+1,i->Sqr(n+i)).Sum)
end.
Пример
n= 5
S=355
2. Примерно так часто учат в школе
var
s,i,n:integer;
begin
Write('n= ');
Read(n);
s:=0;
for i:=0 to n do
s:=s+Sqr(n+i);
Writeln('S=',s)
end.
begin
res := 0;
write( 'n = ' );
readln(n);
for i := 1 to n do
res := res + (( n + i ) * ( n + i ));
res := res + n * n;
writeln( res );
end.