Вычислите сумму квадратов N четных натуральных чисел - Pascal ABC

Pascal ABC

Форум программистов и сисадминов Киберфорум

Войти

Регистрация
Восстановить пароль

Рейтинг 4.55/11:

@SclerOzz 0 / 0 / 0 Регистрация: 24.09.2013 Сообщений: 3

	Вычислите сумму квадратов N четных натуральных чисел 08.10.2013, 08:55. Показов 2377. Ответов 1 Метки нет (Все метки) Вычислите сумму квадратов N четных натуральных чисел. Кто сможет код написать? 0

Лучшие ответы (1)

Сообщение: #5153103

cpp_developer

Эксперт

20123 / 5690 / 1417

Регистрация: 09.04.2010

Сообщений: 22,546

Блог

08.10.2013, 08:55

Ответы с готовыми решениями:

Существует ли такая четвёрка последовательных натуральных чисел,сумма квадратов которых равна сумме квадратов трёх следующих натуральных чисел
Помогите с задачами пожалуйста!!! задача 2. Определить,существует ли такая четвёрка последовательных натуральных чисел,сумма...

Сформировать массив из целых чисел от 2 до N, подсчитать сумму квадpатов четных и сумму квадратов нечетных чисел
Сформировать в программе массив из целых чисел от 2 до N. Подсчитать сумму квадpатов четных и сумму квадратов нечетных чисел. pascal:)

Вычислите сумму натуральных чисел не превосходящих 200.
Вычислите сумму натуральных чисел не превосходящих 200. Нужно использовать цикл for.

Sead

66 / 69 / 33

Регистрация: 07.10.2013

Сообщений: 394

08.10.2013, 09:43

Сообщение было отмечено SclerOzz как решение

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
uses crt;
var i,k,n,j:integer;
begin
i:=0;
writeln('Ââåäèòå êîë-âî N ÷åòíûõ íàòóðàëüíûõ ÷èñåë');
readln(n);
repeat
writeln('Ââåäèòå ÷èñëî');
readln(k);
i:=i+sqr(k);
inc(j);
until j=n;
writeln('Ñóììà ðàâíà:',i);
end.

Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.

raxper

Эксперт

30234 / 6612 / 1498

Регистрация: 28.12.2010

Сообщений: 21,154

Блог

08.10.2013, 09:43

Помогаю со студенческими работами здесь

Подсчитать сумму квадратов чисел вне промежутка (Х, У], и сумму отрицательных чисел на четных местах
Подсчитать сумму квадратов чисел, не принадлежащих промежутку (Х, У], и сумму отрицательных чисел, стоящих на четных местах. Если можно с...

Найти сумму квадратов натуральных чисел
найти сумму квадратов натуральных чисел от 1, не превышающую заданное число (с использованием цикла)

Вычислить сумму квадратов натуральных чисел
Вычислить сумму квадратов натуральных чисел от 3 до 10 включительно Помогите пожалуйста новичок в паскале

Вычислить сумму квадратов натуральных чисел в интервале от 5 до 70
1)Создать программу через строки циклом For Вычислить сумму квадратов натуральных чисел в интервале от 5 до 70. 2)создать программу...

Вычислить сумму квадратов натуральных чисел, кратных 3
Вычислить сумму квадратов натуральных чисел, кратных 3 (3, 6, 9…), в которую входят слагаемые, не большие 5000. Замечание: Провести...

Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:

Новые блоги и статьи Все статьи Все блоги /
Программная установка даты и запрет ее изменения Maks 02.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: при создании документов установить период списания автоматически. . .	Вывод данных в справочнике через динамический список Maks 01.04.2026 Реализация из решения ниже выполнена на примере нетипового справочника "Спецтехника" разработанного в конфигурации КА2. Задача: вывести данные из ТЧ нетипового документа. . .	Функция заполнения текстового поля в реквизите формы документа Maks 01.04.2026 Алгоритм из решения ниже реализован на нетиповом документе "ВыдачаОборудованияНаСпецтехнику" разработанного в конфигурации КА2, в дополнении к предыдущему решению. На форме документа создается. . .	К слову об оптимизации kumehtar 01.04.2026 Вспоминаю начало 2000-х, университет, когда я писал на Delphi. Тогда среди программистов на форумах активно обсуждали аккуратную работу с памятью: нужно было следить за переменными, вовремя. . .
Идея фильтра интернета (сервер = слой+фильтр). Hrethgir 31.03.2026 Суть идеи заключается в том, чтобы запустить свой сервер, о чём я если честно мечтал давно и давно приобрёл книгу как это сделать. Но не было причин его запускать. Очумелые учёные напечатали на. . .	Модель здравосоХранения 6. ESG-повестка и устойчивое развитие; углублённый анализ кадрового бренда anaschu 31.03.2026 В прикрепленном документе раздумья о том, как можно поменять модель в будущем	10 пpимет, которые всегда сбываются Maks 31.03.2026 1. Чтобы, наконец, пришла маршрутка, надо закурить. Если сигарета последняя, маршрутка придет еще до второй затяжки даже вопреки расписанию. 2. Нaдоели зима и снег? Не надо переезжать. Достаточно. . .	Перемещение выделенных строк ТЧ из одного документа в другой Maks 31.03.2026 Реализация из решения ниже выполнена на примере нетипового документа "ВыдачаОборудованияНаСпецтехнику" с единственной табличной частью "ОборудованиеИКомплектующие" разработанного в конфигурации КА2. . . .

Наверх