Форум программистов, компьютерный форум, киберфорум
Pascal ABC
Войти
Регистрация
Восстановить пароль
Другие темы раздела
Pascal ABC Корректно ли записано условие? Корректно ли записано условие? Даны x, E. Вычислите с точностью E: z=1=((x^2)/2!)-((x^4)/4!)+((x^6)/6!)-... https://www.cyberforum.ru/ pascalabc/ thread630808.html Pascal ABC Программа записывающая все слова с символом @ в файл
Привет форумчане! Помогите написать программу, которая будет открывать txt файл, искать в нем все слова с символом @ и записывать эти слова в другой txt файл.
Pascal ABC Воспроизведение файлов wav и mp3 https://www.cyberforum.ru/ pascalabc/ thread630715.html
Подскажите пожалуйста как вставить музыку в Pascal ABC.Вот сюда var a,b,d,g,l,t,h,j,e,q,w,aa: integer ; begin writeln('Привет!Меня зовут Компьютер.Будем говорить на ты.Мне 12 лет.А тебе...
Pascal ABC В матрице вычислить сумму элементов главной диагонали. Если она отрицательна, то все элементы последнего столбца приравнять к нулю Задание: В матрице вычислите сумму элементов главной диагонали. Если она отрицательна, то все элементы последнего столбца приравняйте к нулю. В случае отрицательной суммы элементов главной... https://www.cyberforum.ru/ pascalabc/ thread630646.html
Pascal ABC Составить студенческую ведомость
До 3го пункта вроде нормально, после 3 встал и не могу:wall: Составить программу, используя меню и процедуры; 1.Создать файл "1", который содержит сведения: fam -Фамилия imj- Имя gr- группа...
Pascal ABC Дана строка. Зашифровать строку, поменяв местами первый символ с третьим, второй с четвертым и т.д. https://www.cyberforum.ru/ pascalabc/ thread629917.html
:) Здравствуйте! 1. Дана строка. Зашифровать строку, поменяв местами первый символ с третьим, второй с четвертым и т.д.
Pascal ABC Дана строка. Удалить из строки все слова, имеющие менее 5 букв https://www.cyberforum.ru/ pascalabc/ thread629915.html
:) Здравствуйте! 2. Дана строка. Удалить из строки все слова, имеющие менее 5 букв.
Определить скорости двух самых быстрых автомобилей (двух макисмальных элементов массива) Pascal ABC
Здравствуйте, была бы очень благодарна если поможете :) 2. В массиве хранится информация о максимальной скорости каждой из 40 марок легковых автомобилей. Определить скорости двух самых быстрых...
Pascal ABC Определить, в каком виде спорта каждый спортсмен получил максимальную сумму баллов А подскажите как она решается))) Имеется информация о баллах спортсменов-пятиборцев. Определить, в каком виде спорта каждый спортсмен получил максимальную сумму баллов. https://www.cyberforum.ru/ pascalabc/ thread629908.html Pascal ABC Вывести строку – словесное описание указанного возраста Дано целое число в диапазоне 20 – 69, определяющее возраст (в годах). Вывести строку – словесное описание указанного возраста, обеспечив правильное согласование числа со словом «год», например: 20 –... https://www.cyberforum.ru/ pascalabc/ thread629766.html
Pascal ABC Школьный журнал
Помогите создать журнал,чтобы можно было вводить инициалы ученика и его оценки.И ещё,чтобы Pascal ABC подсчитывал средний балл и всё,что было записано можно было посмотреть(и если можете,оно...
Pascal ABC Написать программу, которая выводит время на экран с дискретностью в 5 секунд https://www.cyberforum.ru/ pascalabc/ thread629367.html
помогите решить,заранее благодарю
Фрилансер
3417 / 2814 / 3000
Регистрация: 08.02.2012
Сообщений: 8,494
Записей в блоге: 1
31.07.2012, 14:59 0

Дано действительное число a, найти такое наименьшее n. что - Pascal ABC - Ответ 3316669

31.07.2012, 14:59. Показов 5737. Ответов 1
Метки (Все метки)

Лучший ответ Сообщение было отмечено Bob2 как решение

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
11
Var s,a,n:real;
Begin
    write('Введите a: ');readln(a);
    s:=1;n:=1;
    While s<a do 
     Begin
      n:=n+1;
      s:=s+1/n;
     End;
    writeln('Наименьешее n для которого s>a: ',n:0:0,' s: ',s:0:5);
End.


Вернуться к обсуждению:
Дано действительное число a, найти такое наименьшее n. что Pascal ABC
1
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
31.07.2012, 14:59
Готовые ответы и решения:

Дано действительное а Найти такое наименьшее n
Дано действительное а Найти такое наименьшее n, что 1+ 1/2+...1/n a, c предусловие, с постусловием,...

Дано вещественное число а. Найти такое наименьшее n, что 1+ (1/2)+(1/3)+...+(1/n)>а
Дано вещественное число а. Найти такое наименьшее n, что 1+ (1/2)+(1/3)+...+(1/n)&gt;а.

Дано действительное число a; найти такое наименьшее n, что 1+1/2+.+1/n > a
помогите решить в Delphi

Дано действительное число a. Найти такое наименьшее n
Найти такое наименьшее n, что сумма последовательности больше заданного числа 1 1...

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

Дано действительное а Найти такое наименьшее n, что
1+ 1/2+...1/n a

Дано вещественное число а. Найти такое наименьшее n, что 1+ (1/2)+(1/3)+...+(1/n)>а
а эту же задачу на C++ с циклом while НАПРИМЕР можете написать?

Дано вещественное число a. Найти такое наименьшее n, что 1+1/2+1/3+.+1/n>a
Дано вещественное число a. Найти такое наименьшее n, что 1+1/2+1/3+...+1/n&gt;a. (С++)

Дано число a (1<a<=1,5) найти такое наименьшее n
Что в последовательности чисел 1+1/2 , 1+1/3, ..., 1+1/n последнее число будет меньше a

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