Форум программистов, компьютерный форум, киберфорум
Free Pascal
Войти
Регистрация
Восстановить пароль
Блоги Сообщество Поиск Заказать работу  
 
Рейтинг 4.67/6: Рейтинг темы: голосов - 6, средняя оценка - 4.67
0 / 0 / 0
Регистрация: 05.06.2013
Сообщений: 5

Найти с использованием итерационного цикла сумму всех чисел m в диапазоне от 1 до заданного номера n

07.06.2013, 11:50. Показов 1120. Ответов 2
Метки нет (Все метки)

Студворк — интернет-сервис помощи студентам
найти с использованием итерационного цикла сумму всех чисел m в диапазоне от 1 до заданного номера n, для которых выражение (mв кубе -2m+1) кратно 10
0
Лучшие ответы (1)
Programming
Эксперт
39485 / 9562 / 3019
Регистрация: 12.04.2006
Сообщений: 41,671
Блог
07.06.2013, 11:50
Ответы с готовыми решениями:

Найти с использованием итерационного цикла сумму всех чисел m в диапазоне
найти с использованием итерационного цикла сумму всех чисел m в диапазоне от 1 до заданного номера n, для которых выражение (m^3-2m+1)...

Найти сумму натуральных чисел в заданном диапазоне (с использованием цикла for)
Найти сумму четных натуральных чисел от 6 до 20 Найти сумму натуральных чисел от 5 до 20

Код итерационного цикла. Найти сумму бесконечного ряда
Помогите пожалуйста написать код!! Найти сумма бесконечного ряда \sum_{n = 1}^{\infty} \ \frac{1}{n^2 \cdot \left( \sin{(n)} +...

2
13 / 13 / 5
Регистрация: 06.05.2013
Сообщений: 52
07.06.2013, 12:02
Как то так
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
program abc;
var
  n,s,m: integer;
begin
s := 0;
  writeln('n = ');
  Readln(n);
for m := 1 to n do
   if(m*m*m - 2 * m + 1 mod 10 = 0) then
      s:=s+m;
writeln(s);
end.
0
Супер-модератор
Эксперт Pascal/DelphiАвтор FAQ
 Аватар для volvo
33378 / 21502 / 8236
Регистрация: 22.10.2011
Сообщений: 36,899
Записей в блоге: 11
07.06.2013, 12:18
Лучший ответ Сообщение было отмечено Памирыч как решение

Решение

Приоритет mod выше, чем у сложения, поэтому в изначальном варианте компилятор видит это так:
Pascal
1
if(m*m*m - 2 * m + (1 mod 10) = 0) then
, что не является правильным решением.

Правильно - задать очередность выполнения операций скобками:
Pascal
1
if (m*m*m - 2 * m + 1) mod 10 = 0 then
1
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
inter-admin
Эксперт
29715 / 6470 / 2152
Регистрация: 06.03.2009
Сообщений: 28,500
Блог
07.06.2013, 12:18
Помогаю со студенческими работами здесь

Найти сумму всех четных чисел в диапазоне от 25 до N
Во всех заданиях необходимо использовать цикл с постусловием и только его. Ввести с клавиатуры нечетное натуральное число N...

Найти сумму всех целых нечетных чисел в диапазоне
Доброе время суток. Условие задачи: Написать программу, которая находит сумму всех целых нечетных чисел в диапазоне, указанном...

Найти сумму всех натуральных чисел в заданном диапазоне
Доброе всем, время суток. Есть задачка на одном известном сайте. Нужно из одного файла взять целое число и посчитать сумму от единицы до...

Найти сумму всех целых чисел в заданном диапазоне
Даны два целых числа А и В (А <В). Найти сумму всех целых чисел А до B включительно

Найти сумму кубов всех целых чисел в заданном диапазоне
Найти:1) сумму кубов всех целых чисел от 1 до п (значение п вводится с клавиатуры; 1 < п < 100); 2) сумму кубов всех целых чисел от а...


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

Или воспользуйтесь поиском по форуму:
3
Ответ Создать тему
Новые блоги и статьи
SDL3 для Web (WebAssembly): Обработчик клика мыши в браузере ПК и касания экрана в браузере на мобильном устройстве
8Observer8 02.02.2026
Содержание блога Для начала пошагово создадим рабочий пример для подготовки к экспериментам в браузере ПК и в браузере мобильного устройства. Потом напишем обработчик клика мыши и обработчик. . .
Философия технологии
iceja 01.02.2026
На мой взгляд у человека в технических проектах остается роль генерального директора. Все остальное нейронки делают уже лучше человека. Они не могут нести предпринимательские риски, не могут. . .
SDL3 для Web (WebAssembly): Вывод текста со шрифтом TTF с помощью SDL3_ttf
8Observer8 01.02.2026
Содержание блога В этой пошаговой инструкции создадим с нуля веб-приложение, которое выводит текст в окне браузера. Запустим на Android на локальном сервере. Загрузим Release на бесплатный. . .
SDL3 для Web (WebAssembly): Сборка C/C++ проекта из консоли
8Observer8 30.01.2026
Содержание блога Если вы откроете примеры для начинающих на официальном репозитории SDL3 в папке: examples, то вы увидите, что все примеры используют следующие четыре обязательные функции, а. . .
SDL3 для Web (WebAssembly): Установка Emscripten SDK (emsdk) и CMake для сборки C и C++ приложений в Wasm
8Observer8 30.01.2026
Содержание блога Для того чтобы скачать Emscripten SDK (emsdk) необходимо сначало скачать и уставить Git: Install for Windows. Следуйте стандартной процедуре установки Git через установщик. . . .
SDL3 для Android: Подключение Box2D v3, физика и отрисовка коллайдеров
8Observer8 29.01.2026
Содержание блога Box2D - это библиотека для 2D физики для анимаций и игр. С её помощью можно определять были ли коллизии между конкретными объектами. Версия v3 была полностью переписана на Си, в. . .
Инструменты COM: Сохранение данный из VARIANT в файл и загрузка из файла в VARIANT
bedvit 28.01.2026
Сохранение базовых типов COM и массивов (одномерных или двухмерных) любой вложенности (деревья) в файл, с возможностью выбора алгоритмов сжатия и шифрования. Часть библиотеки BedvitCOM Использованы. . .
SDL3 для Android: Загрузка PNG с альфа-каналом с помощью SDL_LoadPNG (без SDL3_image)
8Observer8 28.01.2026
Содержание блога SDL3 имеет собственные средства для загрузки и отображения PNG-файлов с альфа-каналом и базовой работы с ними. В этой инструкции используется функция SDL_LoadPNG(), которая. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2026, CyberForum.ru