Форум программистов, компьютерный форум, киберфорум
Pascal ABC
Войти
Регистрация
Восстановить пароль
Другие темы раздела
Pascal ABC Определите время (в часах, минутах и секундах) прибытия автобуса в пункт задача: автобус вышел из пункта А в пункт В в h1 часов m1 минут и s1 секунд и находился в пути h часов, m минут, s секунд. Определите время( в часах, минутах и секундах) прибытия автобуса в пункт я вот тут сама что-то попыталась , но надо еще чтоб например 70 мин. переводились в 1 час и 10 мин или 25 часов переводились в 1 час ночи Program р; var h, m, s, h1, m1, s1, t1, t2, t3:Integer;... https://www.cyberforum.ru/ pascalabc/ thread670788.html Найти наибольшое натуральное число и вывести на экран таблицу Pascal ABC
Исправьте пожалуйста ошибки и допишите вторую часть задания. Текст задачи Пользователь вводит целое положительное число m. Найти наибольшее натуральнее число k, при котором сумма 12 + 22 + З2 + ... + k2 < m. Вывести на экран таблицу значений сумм при всех k от 80 до 100. var k,m, sum: integer; a:array of integer; b:array of integer; begin writeln('введите m');
Pascal ABC Рассчитать сумму бесконечного ряда с заданной точностью Ln(1-x) https://www.cyberforum.ru/ pascalabc/ thread670659.html
Главное условие: это нельзя пользоваться формулой возведения в степень, только перемножения числа само на себя. Вот на что меня хватило, дальше просто не знаю. program ryd; var a,sum,m,b: real ; i,x: integer; begin writeln('Введите Х'); readln(x);
Pascal ABC Составить программу, с использованием цикла, для нахождения значения выражения https://www.cyberforum.ru/ pascalabc/ thread670527.html
Составить программу, с использованием цикла, для нахождения значения выражения: S=sinx+sin2x+sin3x+...+sin7x x-вводится с клавиатуры.
Pascal ABC Кондукторы
В городе N кондукторов y%>a>x% (a-кондукторы) найти колличество кондукторов в городе. x и y вводятся с клавиатуры.
Pascal ABC Найти сумму ряда с точностью e, общий член которого равен an=n!/n^n https://www.cyberforum.ru/ pascalabc/ thread670429.html
Найти сумму ряда с точностью e , общий член которого равен an=n!/n^n . Точность считается достигнутой, если следующий член последовательности меньше заданного e. Если можно, то пожалуйста напишите ее.
Pascal ABC Найти сумму ряда с точностью e Найти сумму ряда с точностью e , общий член которого равен an=n!/2n! . Точность считается достигнутой, если следующий член последовательности меньше заданного e. В этой задаче нужно вводить e с клавиатуры, и в конце программа должна выводить каждый член последовательности и сумму.. Пожалуйста ребята помогите, буду очень благодарен!!! https://www.cyberforum.ru/ pascalabc/ thread670206.html Получить в новом файле компоненты исходного, кроме тех, которые кратны k Pascal ABC
Записать в файл f N натуральных чисел. Получить в другом файле все компоненты файла f, кроме тех, которые кратны k. Вывести полученный файл на печать.
Pascal ABC Разработать программу создания и корректировки файла, содержащего номера частных телефонов Разработать программу создания и корректировки файла, содержащего номера частных телефонов. Каждый элемент этого файла должен содержать следующие данные: Номер телефона,фамилию его владельца и адрес.Программа должна формировать в виде текстового файла список телефонов, владельцы которых проживают на указанной улице. https://www.cyberforum.ru/ pascalabc/ thread670114.html Pascal ABC Определить, сколько раз на [a,b] пересекается Y1=F1(X) и Y2=F2(X) Разработка блок-схемы разветвленного алгоритма Определить, сколько раз на пересекается Y1=F1(X) и Y2=F2(X). https://www.cyberforum.ru/ pascalabc/ thread670108.html
Нахождение наилучшей комбинации Pascal ABC
Всем здравствуйте. Не могли бы помочь с одной задачей по комбинаторике? Имеется фирма и некоторое количество угроз (количество и сами угрозы вводятся с клавиатуры), угрожающих безопасности этой фирмы. Каждая угроза имеет определенную сумму ущерба и определенное денежное требование на ее предотвращение. Задача используя имеющиеся средства предотвратить наибольший ущерб. Например, у нас есть 4...
Pascal ABC Найти среднее геометрическое четных значений функции Ребята спасайте! Нужно срочно написать программу, но я плохо её поняла помогите пожалуйста! ;) Вот её условие: Дана функция y=f(x,a). Найти среднее геометрическое четных значений функции. x1 ≤ x ≤ x2, x3 a1 ≤ a ≤ a2, a3 - real https://www.cyberforum.ru/ pascalabc/ thread669946.html
168 / 90 / 80
Регистрация: 07.10.2012
Сообщений: 145
14.10.2012, 20:34 0

Число Люка - Pascal ABC - Ответ 3561211

14.10.2012, 20:34. Показов 1557. Ответов 1
Метки (Все метки)

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

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
var
    f :array[1 .. 100] of longint;
    k, i, s :longint;
begin
    read(k);
    f[1] := 1;
    f[2] := 3;
    if (k > 0) then s := 1;
    if (k > 1) then s := 4;
 
    for i := 3 to k do begin
        f[i] := f[i - 1] + f[i - 2];
        s := f[i] + s;
    end;
    
    writeln(s);
end.


Вернуться к обсуждению:
Число Люка Pascal ABC
2
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
14.10.2012, 20:34
Готовые ответы и решения:

Нужно написать с рекурсией. Числа Люка
Помогите плиз!! Числа Люка определяются так: первое число равно 1, второе равно 3, каждое...

Определить количество первых чисел Люка
Определить количество первых чисел Люка, таких, что значение их суммы не превышает диапазона типа...

Создайте функцию, которая принимает в качестве аргумента целое число и возвращает число Люка с таким номером
1. Создайте функцию, которая принимает в качестве аргумента целое число и возвращает число Люка с...

СМА BOSCH WOR 16153 OE крючок люка, разбор крышки люка (вертикалка)
Ребята, может кто знает технологию разбора крышки люка у BOSCH WOR 16153 OE с верхней загрузкой,...

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

Сма Beko WML 15085 D, Не видит блокировку люка.., Не видит блокировку люка
Попала в ремонт СМА BEKO WML15085 D. Зависла на одной программе, блокирует люк и стоит... Значок...

Числа Люка определяются так: первое число равно 1, второе равно 3, каждое следующее равно сумме двух предыдущих. Состави
Задание Числа Люка определяются так: первое число равно 1, второе равно 3, каждое следующее равно...

Тест Люка - Лемера
Стало немного скучновато, решил разбавить обстановку. Мат. часть:...

Найти глубину люка
Здравствуйте! Собственно вот: &quot;На какой глубине может находиться вода в люке, чтобы её можно было...

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