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

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

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

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

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

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

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

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

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

1
Puporev
Модератор
54131 / 41764 / 28875
Регистрация: 18.05.2008
Сообщений: 98,291
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
Привет! Вот еще темы с решениями:

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

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

Найти наибольший повторяющийся элемент
program C4; const n=10; var a: array of string; i,m:integer; ...

Найти наибольший элемент из двух массив.
Помогите решить! А)Пусть дана последовательность из N элементов. Увеличьте ее,...


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

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

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