Форум программистов, компьютерный форум, киберфорум
Наши страницы
Free Pascal
Войти
Регистрация
Восстановить пароль
 
XoomeR123
0 / 0 / 0
Регистрация: 16.01.2013
Сообщений: 2
#1

Дана последовательность начиная с 1, сколько чисел нужно сложить, чтобы сумма четных чисел не превышала числа, введенного с клавиатуры - Free Pascal

19.01.2013, 13:01. Просмотров 991. Ответов 1
Метки нет (Все метки)

2)Дана последовательность начиная с 1, вычислить сколько чисел нужно сложить, чтобы сумма четных чисел не превышала числа b введенного с клавиатуры

Помогите решить пожалуйста
http://www.cyberforum.ru/pascal/thread118774.html
0
Лучшие ответы (1)
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
19.01.2013, 13:01
Я подобрал для вас темы с готовыми решениями и ответами на вопрос Дана последовательность начиная с 1, сколько чисел нужно сложить, чтобы сумма четных чисел не превышала числа, введенного с клавиатуры (Free Pascal):

сколько чисел натурального ряда необходимо сложить, чтобы их сумма превысила число 119
Как это можно решить через оператора цикла? Определить, сколько чисел...

Сколько монет нужно сложить чтобы общая сумма составила N
задачка для паскаля, это срочно! есть монеты номиналом 5,2 и 1 копейка. нужно...

Дана последовательность чисел. Требуется вычеркнуть из нее минимальное количество чисел так, чтобы оставшиеся шли в порядке возрастания.
Даны N целых чисел X1, X2, ..., XN. Требуется вычеркнуть из них минимальное...

Дана последовательность действительных чисел а1<=а2...<=an. Вставить в нее действительное число b так, чтобы последовательность осталась неубывающей.
3. Дана последовательность действительных чисел а1&lt;=а2...&lt;=an. Вставить в нее...

Какое количество первых чётных натуральных чисел надо сложить, чтобы их сумма превысила 10000
Какое количество первых чётных натуральных чисел надо сложить, чтобы их сумма...

1
Puporev
Модератор
54131 / 41764 / 28875
Регистрация: 18.05.2008
Сообщений: 98,290
19.01.2013, 18:05 #2
Лучший ответ Сообщение было отмечено как решение

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
uses crt;
var i,s:integer;
    b:real;
begin
clrscr;
repeat
write('Введите положительное число b=');
readln(b);
until b>0;
i:=1;
s:=0;
while s+i+1<=b do
 begin
  i:=i+1;
  if i mod 2=0 then s:=s+i;
 end;
write('Нужно сложить ',i,' чисел, сумма четных=',s);
readln
end.
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
19.01.2013, 18:05
Привет! Вот еще темы с решениями:

Дана последовательность натуральных чисел, заканчивающаяся нулем. Найти количество четных элементов с номерами, кратными 5.
Дана непустая последовательность натуральных чисел, заканчивающаяся нулем....

Дана непустая последовательность натуральных чисел, заканчивающаяся нулем. Найти количество четных элементов с номерами, кратными 5.
Дана непустая последовательность натуральных чисел, заканчивающаяся нулем....

Дана последовательность чисел x1,x2..нужно поменять местами мах и мин элементы
uses crt; var a:array of integer; r,k,p,i,n:integer; min,max:integer;...

Дана последовательность чисел. Построить бинарное дерево, содержащее эти числа.
Дана последовательность чисел. Построить бинарное дерево, содержащее эти числа....


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

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

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