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 помогите решить,заранее благодарю

CodeR

Фрилансер

3417 / 2814 / 3000

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

Сообщений: 8,494

Записей в блоге: 1

31.07.2012, 14:59

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

31.07.2012, 14:59. Показов 5737. Ответов 1

Метки (Все метки)

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

Решение

Pascal

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

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)>а.

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

Дано действительное число a. Найти такое наименьшее n
Найти такое наименьшее n, что сумма последовательности больше заданного числа 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>a. (С++)

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

Наверх