Ученные решили собрать компьютер и использовать в качестве разрядов системы счисления члена ряда фибоначчи которые вычисляют по правилу: f[0]=0, f[1]=1, f[i]=f[i+1]+f[i-2], где i=2, 3, 4, натуральное число можно представить в виде суммы этих чисел, например: 7=5+2, 33=21+8+3+1 и так далее. написать программу которая по введенному натуральному числу будет выводить кодовое число в двоичной системе счисления(цифры 0 и 1), где в соответствующей позиции n, начиная справа 1, если число с номером n присутствует в сумме, иначе 0. формат входных данных входной файл содержит одно натуральное число -- n (0 формат входных данных единственная строка выходного файла должна содержать одно кодовое число
Ответы
Четное число делится на два, а кратное пяти делится на пять, поэтому число должно делиться без остатка на 2х5=10
// PascalABC.NET 3.0,сборка 1076
begin
var n:=ReadInteger('Длина последовательности: ');
var a:=ArrRandom(n,-50,50);
Writeln('Исходная последовательность');
a.Println;
Writeln('Сумма элементов: ',a.Sum);
Write('Кол-во четных, кратных пяти: ');
Writeln(a.Where(x-> x mod 10 = 0).Count)
end.
Тестовое решение:
Длина последовательности: 20
Исходная последовательность
-4 21 -21 -23 14 -39 -12 1 -7 4 17 -45 30 -48 -19 -12 27 -46 -37 15
Сумма элементов: -184
Кол-во четных, кратных пяти: 1
// PascalABC.NET 3.0,сборка 1076
begin
var n:=ReadInteger('Длина последовательности: ');
var a:=ArrRandom(n,-50,50);
Writeln('Исходная последовательность');
a.Println;
Writeln('Сумма элементов: ',a.Sum);
Write('Кол-во четных, кратных пяти: ');
Writeln(a.Where(x-> x mod 10 = 0).Count)
end.
Тестовое решение:
Длина последовательности: 20
Исходная последовательность
-4 21 -21 -23 14 -39 -12 1 -7 4 17 -45 30 -48 -19 -12 27 -46 -37 15
Сумма элементов: -184
Кол-во четных, кратных пяти: 1
Ответить на вопрос
Поделитесь своими знаниями, ответьте на вопрос:
Популярные вопросы в разделе
Сколько байт информации содержит сообщение объёмом 0, 625 кбайт?
Автор: besson89
Установить в каких случаях данные противоречивы: a = 0, a v b = 0
Автор: Tatyana1426
Куда здесь запихать скрипт чтобы работало и окно и он
Автор: Геннадьевна_Петр
Даны катеты прямоугольного треугольника ab.найти его гипотенузу c и периметр p.
Автор: purbuevat56524
#include <iostream>
#include <string>
int main()
{
using namespace std;
int sum = 0, kr = 0, n = 0;
cout << "Вводите числа. 0 - конец." << endl;
while (true){
cin >> n;
sum += + n;
if (n%2==0 && n%5==0){
kr += 1;
}
if (n == 0){
break;
}
}
cout << "Сумма последовательности: " << sum << "\nКоличество четных чисел, кратных пяти: " << kr << endl;
}