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

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

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

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

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

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

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

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

__________________
2
13 / 13 / 5
Регистрация: 06.05.2013
Сообщений: 52
07.06.2013, 12:02 2
Как то так
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
30903 / 20219 / 7882
Регистрация: 22.10.2011
Сообщений: 35,098
Записей в блоге: 6
07.06.2013, 12:18 3
Лучший ответ Сообщение было отмечено Памирыч как решение

Решение

Приоритет 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
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
07.06.2013, 12:18

Заказываю контрольные, курсовые, дипломные работы и диссертации здесь.

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

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

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

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


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

Или воспользуйтесь поиском по форуму:
3
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2021, vBulletin Solutions, Inc.