Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > IT форум > Помощь студентам
Регистрация

Восстановить пароль

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 19.01.2013, 21:05   #1
xhatex
Пользователь
 
Регистрация: 22.11.2012
Сообщений: 22
По умолчанию Найти сумму ряда чисел(Pascal)

Добрый день, помогите пожалуйста с программой....
Найти сумму ряда чисел. Каждое слагаемое на 1 меньше за предыдущее. Процесс выполняется до тех пор, пока выполняется условие:
Число, которое прилагается, должно быть >6. Первое слагаемое=14.
Буду очень признателен!
xhatex вне форума Ответить с цитированием
Старый 19.01.2013, 21:09   #2
Stilet
Белик Виталий :)
Старожил
 
Аватар для Stilet
 
Регистрация: 23.07.2007
Сообщений: 57,097
По умолчанию

Код:
var i,j:integer;begin for i:=14 downto 7 do j:=j+i;write(j);readln;end.
Годится?
I'm learning to live...
Stilet вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Три задачи - Найти сумму натуральных чисел; Протабулировать функцию; вычислить сумму kolya1114 Паскаль, Turbo Pascal, PascalABC.NET 3 01.12.2012 19:01
Найти сумму ряда чисел xhatex Помощь студентам 9 22.11.2012 21:17
Найти сумму положительных нечетных чисел меньше 50 (free pascal) xxx966 Паскаль, Turbo Pascal, PascalABC.NET 4 26.09.2012 21:39
найти сумму ряда. StudentSAFU Помощь студентам 2 04.03.2012 22:42
Найти сумму ряда с точностью e, если дан общий член этого ряда JiLiYa Общие вопросы C/C++ 2 18.02.2009 11:11