Не уверена, что поняла вопрос правильно, но всё-таки:
1. Разделить десятичное число на 2, получится частное и остаток.
2. Разделить частное на 2, получится частное и остаток.
3. Продолжать деление частных, пока последнее частное не будет меньше 2.
4. Последнее частное и остатки записать в обратном порядке.
Например, из 27 в десятичной = 11011 в двоичной.
#include <iostream>
#include <vector>
#include <numeric>
#include <random>
#include <boost/numeric/ublas/matrix.hpp>
#include <boost/numeric/ublas/io.hpp>
using namespace std;
namespace ublas = boost::numeric::ublas;
void fill_matrix (ublas::matrix<int> & A)
{
random_device rng;
uniform_int_distribution<> gen (-10, 10);
for (int i = 0; i < A.size1(); i++)
for (int j = 0; j < A.size2(); j++)
A(i,j) = gen(rng);
}
int addition (int current_sum, int value)
{
if (value < 0 && value&1)
return current_sum + value;
return current_sum;
}
int main()
{
int n = 4;
ublas::matrix<int> A (n, n);
fill_matrix (A);
cout <<A <<endl;
int sum = accumulate (A.begin2(), A.end2() + A.size2() * (A.size1() - 1), 0,
addition);
cout <<sum <<endl;
}
Современным компьютерам предшествовали ЭВМ нескольких поколений. В развитии ЭВМ выделяют пять поколений. В основу классификации заложена элементная база, на которой строятся ЭВМ. 1. В 1943 году была создана вычислительных машин ЭВМ первого поколения на базе электронных ламп. 2. Второе поколение (50 – 60 г. г. ) компьютеров построено на базе полупроводниковых элементов (транзисторах) . 3. Основная элементная база компьютеров третьего поколения (60 – 70 г. г. ) - интегральные схемы малой и средней интеграции. 4. В компьютерах четвертого поколения (70 – по н/в) применены больших интегральных схемах БИС (микропроцессоры) . Применение микропроцессоров в ЭВМ позволило создать персональный компьютер (ПК) , отличительной особенностью которого является небольшие размеры и низкая стоимость. 5. В настоящее время ведутся работы по созданию ЭВМ пятого поколения, которые разрабатываются на сверхбольших интегральных схемах. Объяснение:
program perevod;
Uses crt;
var z:integer;
procedure ToBin(z:integer);
begin
if (z>1) then ToBin(z div 2);
write(z mod 2:1);
end;
begin
clrscr;
write('Введи число:');
readln(z);
writeln('Число в десятичной системе:',z:6);
write('Число в двоичной системе: ');
ToBin(z);
readkey;
end.