Циклы (while..do, repeat..until). Среди чисел ряда найти первое число, которое больше данного числа - Turbo Pascal

Turbo Pascal

Форум программистов и сисадминов Киберфорум

Войти

Регистрация
Восстановить пароль

Рейтинг 4.77/13:

@KolesoPR 0 / 0 / 0 Регистрация: 05.06.2012 Сообщений: 34
		1
	Циклы (while..do, repeat..until). Среди чисел ряда найти первое число, которое больше данного числа 07.06.2012, 09:48. Показов 2709. Ответов 2 Метки нет (Все метки) Привет всем! Помогите решить задачу. Среди чисел $https://www.cyberforum.ru/cgi-bin/latex.cgi?1,1+\frac{1}{2},1+\frac{1}{2}+\frac{1}{3},...$ найти первое число, которое больше данного числа А>0. Заранее спасибо! 0

Заказать работу у эксперта

Лучшие ответы (1)

Сообщение: #3139820

IT_Exp

Эксперт

34794 / 4073 / 2104

Регистрация: 17.06.2006

Сообщений: 32,602

Блог

07.06.2012, 09:48

Ответы с готовыми решениями:

Найти первое число последовательности, которое больше данного числа А>0
Господа, здравствуйте! Задача такая: дана некая последовательность 1; 1+1/2; 1+1/2+1/3 ......

Циклы. Найти наименьшее число, которое делится на сумму цифр данного числа
Дано натуральное число N. Найти наименьшее число М (N < M < 2N) которое делится на сумму цифр числа...

Среди заданных чисел найти первое, больше числа а
Написать программу нахождения среди чисел 1, 1+1/2, 1+1/2+1/3, 1+1/2+1/3+1/4, 1+1/2+1/3+1/4+1/5...

Найти среди чисел ряда первое, большее некоторого натурального числа А
Не могу всё написать с циклом repeat. В чём дело? Не подскажите. Program maw3; var...

AMG2011

1 / 1 / 3

Регистрация: 28.02.2012

Сообщений: 6

08.06.2012, 01:14

Сообщение было отмечено KolesoPR как решение

Решение

Pascal

var
n:integer;
A,sum:real;
begin
read(A);
n:=1;
while sum<A
do
begin
sum:=sum+1/n;
 n:=n+1;
 end;
writeln(sum);
end.

@KolesoPR 0 / 0 / 0 Регистрация: 05.06.2012 Сообщений: 34
	08.06.2012, 15:48 [ТС]	3
	AMG2011, Спасибо! 0

	08.06.2012, 15:48

BasicMan

Эксперт

29316 / 5623 / 2384

Регистрация: 17.02.2009

Сообщений: 30,364

Блог

08.06.2012, 15:48

Помогаю со студенческими работами здесь

В массиве чисел С1, С2, …, С n найти первое число больше заданного числа
В массиве чисел С1, С2, …, Сn найти первое число больше заданного числа. HEEEEELP :)

Дано действительное число а. Найти среди чисел 1, 1+1/2, 1, 1+1/2+1/3, . первое, большее заданного числа а
Дано действительное число а. Найти среди чисел 1, 1+1/2, 1, 1+1/2+1/3, ... первое, большее...

Найти первое число Фибонначи, которое больше за заданое число Т
числа Фибоначчи определяются рекуррентными формулами: f0=f1=1 fn=fn-1+fn-2 Найти первое число...

Длинная арифметика: найти первое простое число, которое больше 10^11
здравствуйте, помогите пожалуйста:( Найти первое простое число, которое больше 10^11

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

Или воспользуйтесь поиском по форуму:

Новые блоги и статьи
Как написать микросервис на Go/Golang InfoMaster 14.01.2025 Определение микросервиса, преимущества использования Go/ Golang Микросервис – это архитектурный подход к разработке программного обеспечения, при котором приложение состоит из небольших, независимо. . .	Как написать микросервис с нуля на C# InfoMaster 14.01.2025 В современном мире разработки программного обеспечения микросервисная архитектура стала стандартом де-факто для создания масштабируемых и гибких приложений. Этот архитектурный подход предполагает. . .	Как создать интернет-магазин на PHP и JavaScript InfoMaster 14.01.2025 В современном мире электронная коммерция стала неотъемлемой частью бизнеса. Создание собственного интернет-магазина открывает широкие возможности для предпринимателей, позволяя достичь большей. . .	Как написать Тетрис на Ассемблере InfoMaster 14.01.2025 Тетрис – одна из самых узнаваемых и популярных компьютерных игр, созданная в 1984 году советским программистом Алексеем Пажитновым. За прошедшие десятилетия она завоевала симпатии миллионы людей по. . .	Как создать игру "Танчики" на Unity3d и C# InfoMaster 14.01.2025 Разработка игр – это увлекательный процесс, сочетающий в себе творчество и технические навыки. В этой статье мы рассмотрим создание классической игры "Танчики" с использованием Unity3D и языка. . .	Организую платный онлайн микро-курс по доработке Android-клиента Telegram _Ivana 14.01.2025 Официальная версия и распространенные форки не полностью устраивают? Сделай свою кастомную версию клиента! 4 занятия по 2 часа (2 недели пн, ср 19:00-21:00 по Москве). Первое вводное занятие. . .
Как создать приложение для фитнеса для iOS/iPhone на Kotlin InfoMaster 14.01.2025 Создание собственного фитнес-приложения — это не только захватывающий, но и полезный процесс, ведь оно может стать вашим верным помощником на пути к здоровому и активному образу жизни. В современных. . .	Как создать приложение магазина для iOS/iPhone на Swift InfoMaster 14.01.2025 Введение в разработку iOS-приложений Разработка приложений для iPhone и других устройств на базе iOS открывает огромные возможности для создания инновационных мобильных решений. В данной статье мы. . .	Это работает. Скорость асинхронной логики велика. Вопрос видимо останется в стабильности. Плата - огонь! Hrethgir 13.01.2025 По прошлому проекту в Logisim Evolution https:/ / www. cyberforum. ru/ blogs/ 223907/ blog8781. html прилагаю файл архива проекта в Gowin Eda. Восьмибитный счётчик из сумматора+ генератор сигнала. . .	UserScript для подсветки кнопок языков программирования в зависимости от текущего раздела volvo 13.01.2025 В результате работы этого скрипта подсвечиваются нужные кнопки не только в форме быстрого ответа, но и при редактировании сообщения: / / ==UserScript== / / @name CF_DefaultLangSelect / / . . .	Введение в модели и алгоритмы машинного обучения InfoMaster 12.01.2025 Машинное обучение представляет собой одну из наиболее динамично развивающихся областей искусственного интеллекта, которая фокусируется на разработке алгоритмов и методов, позволяющих компьютерам. . .	Как на Python создать нейросеть для решения задач InfoMaster 12.01.2025 В контексте стремительного развития современных технологий особое внимание уделяется таким инструментам, как нейросети. Эти структуры, вдохновленные биологическими нейронными сетями, используются для. . .

Наверх