М
Молодежь
К
Компьютеры-и-электроника
Д
Дом-и-сад
С
Стиль-и-уход-за-собой
П
Праздники-и-традиции
Т
Транспорт
П
Путешествия
С
Семейная-жизнь
Ф
Философия-и-религия
Б
Без категории
М
Мир-работы
Х
Хобби-и-рукоделие
И
Искусство-и-развлечения
В
Взаимоотношения
З
Здоровье
К
Кулинария-и-гостеприимство
Ф
Финансы-и-бизнес
П
Питомцы-и-животные
О
Образование
О
Образование-и-коммуникации
vvasea66
vvasea66
16.02.2020 23:09 •  Информатика

Ученные решили собрать компьютер и использовать в качестве разрядов системы счисления члена ряда фибоначчи которые вычисляют по правилу: 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
формат входных данных
единственная строка выходного файла должна содержать одно кодовое число

👇
Открыть все ответы
Ответ:
khudobeidiana
khudobeidiana
16.02.2020

#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;

}

4,8(73 оценок)
Ответ:
прог13
прог13
16.02.2020
Четное число делится на два, а кратное пяти делится на пять, поэтому число должно делиться без остатка на 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
4,4(20 оценок)
Это интересно:
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ