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

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

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

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

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

Дана последовательность натуралных чисел a1,а2,аn. создать массив из четных чисел этой последовательность. если таких чисел нет то вывести сообщение о
Дана последовательность натуралных чисел a1,а2,аn. создать массив из четных...

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

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

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

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

1
Puporev
Модератор
54697 / 42111 / 29076
Регистрация: 18.05.2008
Сообщений: 99,376
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

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

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

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


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

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

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