Форум программистов, компьютерный форум, киберфорум
PascalABC.NET
Войти
Регистрация
Восстановить пароль
Другие темы раздела
PascalABC.NET Вывести список переменных A и B Не могу сделать так, чтобы прога выводила много переменных A и B, для всех чисел от 1 до 500 (ну чтобы на каждое число выводило переменные, и тз этого был список) var x, a, b: longint; begin ... https://www.cyberforum.ru/ pascalabc-net/ thread2183650.html Корректность записи в файл (chr чудит) PascalABC.NET
Написал небольшую программку, которая с помощью функции chr() дописывает в стоку случайный символ, но при попытке вывести строку в текстовый файл (.txt) появляются ошибки. Например символ "š" в...
PascalABC.NET Перевод из одной СС в другую через рекурсию Необходимо осуществить перевод из двоичной системы счисления в семеричную через рекурсию Был написан такой код, но нужно преобразовать это в рекурсию: uses CRT; var A, B: string; i, n:... https://www.cyberforum.ru/ pascalabc-net/ thread2183340.html PascalABC.NET Найти количество элементов матрицы, модуль разности между которыми и средним арифметическим элементов матрицы более 1 https://www.cyberforum.ru/ pascalabc-net/ thread2183143.html
Найти количество элементов вещественной матрицы a, модуль разности между которыми и средним арифметическим элементов матрицы более 1.
PascalABC.NET Получить массив В, состоящий из элементов массива А, которые кратны 2
Задан массив А(N). Получить из него массив В, состоящий из элементов массива А, которые кратны двум
PascalABC.NET Получить одномерный массив, состоящий из элементов массива А, которые превышают по модулю число https://www.cyberforum.ru/ pascalabc-net/ thread2183109.html
Задан массив А. Получить массив одномерный массив В, состоящий из элементов массива А, которые превышают по модулю число, введенное пользователем (предварительно необходимо определить количество...
PascalABC.NET Ход королем (Шахматы) https://www.cyberforum.ru/ pascalabc-net/ thread2183093.html
Как описать ход короля в шахматах, если начальные координаты= a1, b1. конечные= x,y. if (b=11) or (b=12) then //проверка фигуры(картинка с номером 11 и 12 из массива картинок)
PascalABC.NET Произведение компонент файла
Всем доброго времени суток! Задание такое: Составить программу работы с файлами: Дан файл f, компоненты которого являются действительными числами. Найти: а) сумму компонент файла f; б)...
PascalABC.NET Как написать код, который при вводе чисел х, y, r выводил бы в какую область попадаем? Доброго времени суток. Собственно, не понимаю, как написать код, который при вводе чисел х,y,r выводил бы в какую область попадаем https://www.cyberforum.ru/ pascalabc-net/ thread2182910.html PascalABC.NET Графика: Отрисовать выстрел и попадание снаряда в тарелку Друзья, добрый день. Подскажите: В верхнем левом углу стандартного графического окна отображается летающая тарелка (см. рисунок). Тарелка движется самостоятельно вдоль верхней границы окна. Тарелка... https://www.cyberforum.ru/ pascalabc-net/ thread2182732.html
PascalABC.NET Не получается покрасить вторую ногу на рисунке
uses graphabc; begin setpencolor(clblack); circle(250, 100, 50); line(150, 150, 350, 150); line(350, 150, 250, 350); line(250, 350, 150, 150); line(175, 200, 100, 250);
PascalABC.NET Как программно скачать документ из ВК? В ВК есть группа колледжа, где в теме обсуждений выкладывается расписание в виде файла .xls (exel) Пример => https://vk.com/doc98797080_458629110?hash=a004a75a11064fa89a&dl=b2ff77471b6f1b76b2 Как... https://www.cyberforum.ru/ pascalabc-net/ thread2182424.html
Почетный модератор
64287 / 47586 / 32739
Регистрация: 18.05.2008
Сообщений: 115,182
02.02.2018, 11:45 0

Вывести наибольшее из целых чисел, для которого заданная сумма будет меньше заданного числа, и саму эту сумму - PascalABC.NET - Ответ 12084156

02.02.2018, 11:45. Показов 898. Ответов 1
Метки (Все метки)

Ответ

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
const a=2.96994;
var s,b,min_k:real;
    k:integer;
begin
b:=1;
k:=1;
s:=1;
while s+1/(k+1)<a do
 begin
  inc(k);
  s:=s+1/k;
 end;
writeln('a=',a:0:5);
writeln('k=',k,' сумма=',s:0:5);
end.


Вернуться к обсуждению:
Вывести наибольшее из целых чисел, для которого заданная сумма будет меньше заданного числа, и саму эту сумму PascalABC.NET
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
02.02.2018, 11:45
Готовые ответы и решения:

Вывести наибольшее из целых чисел К, для которых сумма 1+1/2+.+1/K будет меньше А, и саму эту сумму
Здравствуйте, помогите пожалуйста написать программы на языке паскаль.Заранее благодарю. 2)...

Вывести наибольшее из целых чисел К,для которых сумма 1+2+...+К будет меньше или равна N, и саму эту сумму.
while. Дано целое число N(&gt;1).Вывести наибольшее из целых чисел К,для которых сумма 1+2+...+К будет...

Вывести наибольшее из целых N, для которых сумма 1+1\2+...+1\N будет меньше А, и саму эту сумму.
Здравствуйте. Помогите пожайлуста решить задачку. Заранее спасибо! Задача: Дано вещественное...

Дано число A (>1). Вывести найбольшее из целых чисел К, для которых сумма 1+1/2+.+1/k будет меньше А и саму эту сумму
Дано число A (&gt;1). Вывести найбольшее из целых чисел К, для которых сумма 1+1/2+...+1/k будет...

1
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
02.02.2018, 11:45
Помогаю со студенческими работами здесь

Вывести наименьшее из целых чисел N, для которых сумма 1 + 1/2 + ... + 1/N будет больше A, и саму эту сумму.
VI.Операторы цикла 19. Показать, что для всех п = 1, 2, 3, N (15 + 25 + ... + n5) + (17 + 27 +...

Вывести наименьшее из целых чисел N, для которых сумма 1+1/2+...+1/N будет больше А, и саму эту сумму.
1) Дано вещественное число А (&gt;1). Вывести наименьшее из целых чисел N, для которых сумма...

Вывести наименьшее из целых чисел K, для которых сумма 1 + 1/2 + … + 1/K будет больше A, и саму эту сумму.
Надо решить две задачки выручите пожалуйста! 1.Дано вещественное число X и целое число N (&gt; 0)....

Дано вещественное число A (> 1). Вывести наименьшее из целых чисел N, для которых сумма 1 + 1/2 + . + 1/N будет больше A, и саму эту сумму
Дано вещественное число A (&gt; 1). Вывести наименьшее из целых чисел N, для которых сумма 1 + 1/2 +...

0
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2023, CyberForum.ru