По данному натуральному числу N выведите такое наименьшее целое число k, что 2k≥N

Здраствуйте. У меня тут несколько задач. Пожалуста помогите!!! Очень нужно.
1) По данному натуральному числу N выведите такое наименьшее целое число k, что 2k≥N.
Операцией возведения в степень пользоваться нельзя!

2) Вводятся 4 числа: a, b, c и d.
Найдите все целые решения уравнения ax3 + bx2 + cx + d = 0 на отрезке [0,1000] и выведите их в порядке возрастания.

3) Вводятся 5 чисел: a, b, c, d и e.
Найдите все целые решения уравнения ( ax3 + bx2 + cx + d ) / ( x - e ) = 0 на отрезке [0,1000] и выведите их количество.

4) "ГНЧЭ-1" – сложное электронное устройство, выдающее каждую секунду очередное число последовательности 1, 2, 2, 3, 3, 3, 4, 4, 4, 4, 5... Ввиду дороговизны электронных комплектующих вам поручено разработать эмулятор для этого устройства.
Формат входного файла
Дано количество секунд (от 1 до 1000000), которые работает генератор после включения.

Формат выходного файла
Результат работы генератора

Пример
5-1 2 2 3 3
2-1 2

5) В первый день спортсмен пробежал x километров, а затем он каждый день увеличивал пробег на 10% от предыдущего значения. По данному числу y определите номер дня, на который пробег спортсмена составит не менее y километров.

Программа получает на вход действительные числа x и y и должна вывести одно натуральное число.

Пример
10
20
Вывод 9

6) Вклад в банке составляет x рублей. Ежегодно он увеличивается на p процентов, после чего дробная часть копеек отбрасывается. Каждый год сумма вклада становится больше. Определите, через сколько лет вклад составит не менее y рублей.

Программа получает на вход три натуральных числа: x, p, y и должна вывести одно целое число.


7) Дано натуральное число A. Определите, каким по счету числом Фибоначчи оно является, то есть выведите такое число n, что φn=A. Если А не является числом Фибоначчи, выведите число -1.

0

Здесь чистое использование цикла for...to..do, просто меняй условия. Кстати со второй по пятую задачи нужно использовать несколько вложеных циклов.

0

1.

0

Сообщение от Dekio for i:=1 to n do if 2*i>=n then begin writeln(i); break; end;

Dekio твой не то считает. Нужно чтобы степень двойки, а не делимость,
Пример
если N=7 то 3 то-есть exp(3*ln(2))>=7
Но если я пользуюсь этим оператором, выдает ошибку, вот я и ищу другие методы.

0

Воспользуйся trunc(exp(3*ln(2)))-это должно работать.

0

Вот попробовал так, не получается
Выводит 1 при введении 7

0

Во-первых что такое s, а во-вторых k:=i, а не 1.

Добавлено через 1 минуту
Кстати используй break ,а иначе он выведит тебе последнее число.

0

Ну по-этому и S Я не знал про оператор break и вот использовал такую конструкцию.

Добавлено через 11 минут
А как делать все это без этого EXP(i*ln(2))
Помню мы как то проходили в школе как выяснить является ли степенью число или нет методом деления, но точно не помню

0

используй
while trunc(exp(i*ln(2)))<n do
inc(i) (или i:=i+1);
k:=i;
writeln(k);

Добавлено через 2 минуты
или поправь в своей программе k:=i.(я понял для чего там s)

0

while trunc(exp(i*ln(2)))<n do

Ну я про то чтобы вообще не использовать функцию exp, я думаю как то можно сделать используя лишь +,-,/,*,div,mod или нет?

0

Ну я про то чтобы вообще не использовать функцию exp, я думаю как то можно сделать используя лишь +,-,/,*,div,mod или нет?

если верно понял задание.

0

А чем тебя exp не устраивает trunc(exp(i*ln(2)))-100% вариант(но в принципе можно не использовать exp)?

0

serj1

Операцией возведения в степень пользоваться нельзя

Вон оно чё...

0

Твоя взяла.

0

SuPeR XaKer я это сделал одним циклом.


А что скажете про задачи от 4 До 7?
Что-то не получается.

0