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

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

07.06.2013, 11:23. Просмотров 892. Ответов 1
Метки нет (Все метки)

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

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

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

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

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

__________________
1
Модератор
63330 / 47043 / 32426
Регистрация: 18.05.2008
Сообщений: 114,028
07.06.2013, 11:54 2
Лучший ответ Сообщение было отмечено Памирыч как решение

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
uses crt;
var m,n,s:longint;
begin
clrscr;
write('n=');
readln(n);
s:=0;
for m:=1 to n do
if (m*m*m-2*m+1) mod 10=0 then
 begin
  writeln(m);
  s:=s+m
 end;
if s=0 then write('Таких чисел нет')
else write('Сумма=',s);
readln
end.
1
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
07.06.2013, 11:54

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

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

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

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

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


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

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

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