Форум программистов, компьютерный форум, киберфорум
Наши страницы
Pascal ABC
Войти
Регистрация
Восстановить пароль
 
Рейтинг 5.00/4: Рейтинг темы: голосов - 4, средняя оценка - 5.00
flame-93
0 / 0 / 0
Регистрация: 27.05.2015
Сообщений: 15
1

Найти наибольший элемент ряда, не превышающий 500

27.05.2015, 06:39. Просмотров 761. Ответов 1
Метки нет (Все метки)

Помогите пожалуйста решить.
Числовой ряд образуется следующим образом: заданы два первых натуральных числа, n1 и n2, следующие числа образуются суммированием двух предыдущих чисел ряда, т.е. n3=n1+n2, n4=n2+n3. Найти наибольший элемент ряда, не превышающий 500.
0
Лучшие ответы (1)
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
27.05.2015, 06:39
Ответы с готовыми решениями:

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

Найти количество элементов кратных k и из них найти наибольший элемент и наименьший элемент
«Дана квадратная матрица. Найти количество элементов кратных k и из них найти...

Задачка на олимпиаду. Определить первый элемент массива, не превышающий 2.5
Задан одномерный массив А действительных чисел, пронумерованных от 1 до h....

Найти наибольший элемент в квадратной матрице, удалить из нее строку, содержащую этот элемент
Дана квадратная матрица А(6, 6) найти наибольший по модулю элемент. Получить...

В квадратной матрице найти наибольший элемент и сумму элементов строки на пересечении которой расположен этот элемент
сРОЧНО ПОМОГИТЕ!!!!!!!!!!

1
Puporev
Модератор
54686 / 42104 / 29072
Регистрация: 18.05.2008
Сообщений: 99,357
27.05.2015, 07:21 2
Лучший ответ Сообщение было отмечено Памирыч как решение

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
var n1,n2,n:integer;
begin
writeln('Введите 2 натуральных числа');
readln(n1,n2);
//поскольку условием не оговорены первые 2 числа
//рассмотрим все условия
if(n1>500)and(n2>500) then write('Нужного члена ряда нет')
else if (n1<=500)and(n2>500) then write(n1)
else if (n2<=500)and(n1>500) then write(n2)
else if (n1+n2>500) then
 begin
  if n1>n2 then write(n1)
  else write(n2);
 end
else
 begin
  while n1+n2<=500 do
   begin
    n:=n1+n2;
    writeln('n=',n);//вывод можно убрать, это для проверки
    n1:=n2;
    n2:=n;
   end;
  write(n);
 end
end.
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
27.05.2015, 07:21

Найти наибольший элемент матрицы А
решить с помощью Pascal.

Найти наибольший элемент матрицы
1.Найти наибольший элемент массива размера MxN,элементы которого задаются...

Найти наибольший элемент в матрице
Найти наибольший элемент в матрице Zij, элементы которой вычисляются по формуле...


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

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

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