<h3>PascalABC.NET 3.4.2, сборка 1884 от 24.11.2018</h3><h3>Внимание! Если программа не работает, обновите версию!</h3>
begin
var (max, min, k) := (-100000, 100000, 0);
ReadSeqIntegerWhile(t -> t <> 0)
.Foreach(t ->
begin
if t > max then max := t;
if t < min then min := t;
if t mod 10 = 7 then Inc(k)
end);
Writeln('min=', min, ', max=', max, ', искомое кол-во: ', k)
end.
Не скачивать вредоносные антивирусные программы, регулярно чистить компьютер от пыли, следить за перегревом, играть только на официальных серверах майнкравта, протирать монитор 1 раз в неделю.
Алгоритм может быть, например, таким. Если нужно вывести нулевое число Фибоначчи, выведем 1, иначе будем считать. Сохраним в переменную номер текущего числа Фибоначчи (изначально 1) и значения текущего и предыдущего элементов (в начале 1 и 1), затем в цикле будем пересчитывать значения элементов, увеличивая номер текущего элемента. Когда номер элемента совпадёт с нужным, выведем ответ.
Реализация (python 3):
n = int(input())
if n == 0:
print(1)
else:
prev, curr = 1, 1
i = 1
while i < n:
curr, prev = prev + curr, curr
i += 1
print(curr)
Запустив программу, можно узнать, что f10 = 89, f25 = 121393, а f40 = <span>165580141</span>
1280 или тупо переводим в 2сс или просто представляем в виде сумм чисел 2 в опред. степени( столько будет 0 + одна1)
=1024+128+64+32+8+4
всего 5 единиц
689=519+128+32+8+2 тоже 5 единиц
10110111=128+32+16+7=
245 в 2сс =1110101
