Вопрос по информатике:
Дано целое число N(N>0). Найти сумму 1+(1+N)^2+(2+N)^2+....+(N+N)^2
Трудности с пониманием предмета? Готовишься к экзаменам, ОГЭ или ЕГЭ?
Воспользуйся формой подбора репетитора и занимайся онлайн. Пробный урок - бесплатно!
- 12.09.2016 06:49
- Информатика
- remove_red_eye 9893
- thumb_up 5
Ответы и объяснения 2
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.
- 13.09.2016 09:43
- thumb_up 13
// 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
- 14.09.2016 09:31
- thumb_up 6
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.