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

Найти ближайшее меньшее, чем заданное число

17.09.2013, 21:32. Просмотров 1161. Ответов 1
Метки нет (Все метки)

Доброго времени суток. Как задать этот бесконечный ряд чисел и сравнить потом с заданым числом?

Задание:
Среди чисел 1, 1+1\2, 1+1\2+1\3... найти ближайшее меньшее, чем заданное число A.
0
Лучшие ответы (1)
QA
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
17.09.2013, 21:32
Ответы с готовыми решениями:

Файл: найти среднее арифметическое, найти число, ближайшее к среднему арифметическому
с помощью датчика случайных чисел создать файл из 40 целых чисел.вывести все четные числа из него....

Найти ближайшее к X натуральное число, кратное N
Привет всем! Такая проблемка...задали контрошу по информатике, нужно написать задачку, а у меня с...

Массив. Найти элементы, больше, чем заданное значение, заменить их на нули
Помогите написать программу: В массиве А(100) найти элементы ,больше, чем заданное значение...

Дано натуральное число N. Получить наименьшее число вида 4k, меньшее N.
Дано натуральное число N. Получить наименьшее число вида 4k, меньшее N.

Ближайшее число
Пользователь вводит натуральное число n (0<n<32750) и через пробел цифру с. Программа выводит...

1
Puporev
Модератор
57505 / 43847 / 30293
Регистрация: 18.05.2008
Сообщений: 104,680
18.09.2013, 13:31 2
Лучший ответ Сообщение было отмечено как решение

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
uses crt;
var a,b:real;
    i:longint;
begin
clrscr;
repeat
write('Введите число 1<a<=11 a=');
readln(a);
until (a>1)and(a<=11);{больше 11 долго считает}
b:=1;
i:=2;
while b+1/i<a do
 begin
  i:=i+1;
  b:=b+1/i;
 end;
write('b=',b:0:10);
readln
end.
0
Answers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
18.09.2013, 13:31

Ближайшее число Фибоначчи
Задано натуральное число N. Напишите программу, которая находит ближайшее к N число Фибоначчи. Если...

Как вывести число, ближайшее к X?
const n=10; var a:array of integer; j,i,k,x,c,m,L,R,d:integer; begin writeln('Массив: ');...

Циклы: в произвольном числовом ряду найти меньшее число из двух наибольших чисел этой последовательности
В произвольном числовом ряду (ввод чисел с клавиатуры, ввод завершить числом 0) найти меньшее число...


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

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

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