<h3>PascalABC.NET 3.4.2, сборка 1881 от 19.11.2018</h3><h3>Внимание! Если программа не работает, обновите версию!</h3>
begin
var (ke,ko):=(0,0);
loop 5 do
if ReadInteger.IsOdd then Inc(ko)
else Inc(ke);
Writeln('Четных ',ke,', нечетных ',ko)
end.
#include <iostream>
#include <conio.h>
using namespace std;
int main()
{
setlocale(LC_ALL,"Russian");
const int N=7;
int A[N];
cout << "Введите массив, состоящий из " << N << " элементов:\n";
for (int i=0; i<N; i++)
cin >> A[i];
cout << "Массив до - ";
for (int i=0; i<N; i++)
{
cout << A[i] << " ";
if (A[i]*A[i] < 25) A[i] *= 2;
}
cout << "\nМассив после - ";
for (int i=0; i<N; i++)
cout << A[i] << " ";
_getch();
return 0;
}
Microsft Visual C++ 2010
128=2^7; 8Kбайт=2^3*2^3*2^10=2^16 (бит)
2^16 : 2^14 = 2^2 (степень 2 - количество цветов)
Ответ: 2
Диод принимает 2 состояния - 1 истина и 0 ложь
1 диод = 2(в первой степени) = 2 значениям;
7 диод = 2(в степени семь) = 128 значений; - можно послать 128 - различных сообщений