При угадывании результата броска игральной кости задается вопрос «выпало 3»? какое количество информации содержит ответ?

9 бит или 1 байт, 1 бит

Відповідь:

#include <iostream>

using namespace std;

const int size = 10;

void cinarr(int *arr,const int size){

int counter = 1;

for(int i = 0; i < size; i++){

 cout << "Введите " << counter << " елемент массива: ";

 cin >> arr[i];

 counter++;

}

}

void printarr(int *arr, const int size){

for(int i = 0; i < size; i++){

 cout << arr[i] << " ";

}

}

int expression(int *arr,const int size,int number){

int counternumber = 0;

for(int i = 0; i < size; i++){

 if(number == arr[i]){

  counternumber++;

 }

}

return counternumber;

}

int main(){

setlocale(LC_ALL , "Rus");

int number;

cout << "Введите число которое будем искать: ";

cin >> number;

int *arr = new int [size];

cinarr(arr,size);

printarr(arr,size);

cout << "\nТаких чисел в массиве: " << expression(arr,size,number) << endl;;

delete [] arr;

return 0;

}

Пояснення:

Поскольку протестировать программу без файла нельзя, вот код, создающий нужный файл.

// PascalABC.NET 3.3, сборка 1579 от 18.11.2017
// Внимание! Если программа не работает, обновите версию!

type
  fint=file of integer;

begin
  var f:fint;
  Assign(f,'integers.bin'); Rewrite(f);
  SeqRandom(20,-50,50).foreach(t->Write(f,t));
  f.Close
end.

А теперь, собственно, решение задачи

type
  fint=file of integer;

begin
  var f:fint;
  Assign(f,'integers.bin'); Reset(f);
  var k:=0;
  var b:integer;
  while not Eof(f) do begin
    Read(f,b);
    if b.IsEven then k+=1
    end;
  f.Close;
  Writeln('Кол-во четных компонент файла равно ',k)
end.

И последнее - программа распечатки значений компонент файла. Для контроля.

type
  fint=file of integer;

begin
  var f:fint;
  Assign(f,'integers.bin'); Reset(f);
  var b:integer;
  while not Eof(f) do begin Read(f,b); Print(b) end;
  Writeln;
  f.Close
end.