Задание на написание программки в Pascal.Дано целое число N (amp;gt;0). Отыскать

Задание на написание программки в Pascal.
Дано целое число N (gt;0). Отыскать сумму N*2+(N+1)*2+(N+2)*2+...+(2*N)*2

Задать свой вопрос
Ярослава Фомилиант
Сколько раз нужно просуммировать данное число?
Инна Гухачева
В задании дано только это. Больше ничего не обозначено :с
1 ответ

program t;

var n, s, i: integer;

begin

readln(n);

s:=0;

for i:=n to 2*n do s:=s+i*2;

writeln(s)

end.

Эльвира Балабанова
Кстати, если пользоваться формулой суммы арифм. прогрессии, можно еще проще решить задачку:
Данил Ручица
program t; var n, s: integer;begin readln(n); s:=3*n*(n+1); writeln(s)end.
Алиса Буторина
* суммы членов арифм. прогрессии
Бронфельман Ксения
Всё увидел, где я сам не додумал. Произнес бы, что я дурачина не туда смотрю.
Алексей Эпсентов
Если открывать этот цикл, то должно получиться2n^2 + 2n + 2mгде m - это сумма 1 + 2 + 3 + ... + n-1
Вадик Леусатов
Либо я ошибся (
Kotlukova Alla
Почти правильно. Единственная ошибка - m - это сумма 1 + 2 + 3 + ... + n
Сема Норенков
N*2+(N+1)*2+(N+2)*2+...+(2*N)*2=2N+(N+1)*2+(N+2)*2+...+(N+N)*2=2N+(1*2+2*2+...+N*2)+(N*2+N*2+...+N*2)=2N+2(1+2+...+N)+2N^2
Ксения Артохова
А если знать формулу суммы чисел от 1 до N (N*(N+1)/2), то можно раскрыть так: 2N+2(1+2+...+N)+2N^2=2N+2N(N+1)/2+2N^2=2N+N(N+1)+2N^2=2N(N+1)+N(N+1)=3N(N+1)
Борька Мааталлах
Эту формулу (s:=3*n*(n+1);) я и применил в своём решении без цикла ;-)
, оставишь ответ?
Имя:*
E-Mail:


Последние вопросы

Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт