Для знакового представления информации используется: Выберите один ответ: a. язык b. речь c. символы d. письменность

знаковый представления информации-это Язык

#include "stdafx.h"

#include <iostream>

using namespace std;

int main()

{

setlocale (LC_ALL, "RUS");

int i,j,N,M,a[20][20];

cout<<"N="; //ввод количества строк

cin>>N;

cout<<"M="; //ввод количества столбцов

cin>>M;

cout<<"Input matrix A \n";

//цикл по переменной i, в которой перебираем строки матрицы

for (i=0; i<N; i++)

//цикл по переменной j, в котором перебираем элементы внутри строки

for (j=0; j<M; j++)

cin>>a[i][j]; //ввод очередного элемента матрицы

cout<<"matrix A \n";

for (i=0; i<N; i++)

{

//цикл по переменной i, в котором перебираем строки матрицы

for (j=0; j<M; j++)

cout<<a[i][j]<<"\t"; //вывод очередного элемента матрицы

cout<<endl; //переход на новую строку после вывода всех элементов строки

}

system("pause");

return 0;

}

Объяснение:

Var m : array[0..6] of Integer;
  i,k,N : Integer;
Begin
  For i:=0 to 6 do m[i]:=0;
  Readln(N);
  k:=6;
  While N>0 do
  Begin
    If N>=Power(2,k) then
    Begin
      N:=N-Trunc(Power(2,k));
      Inc(m[k]);
    end else Dec(k);
  end;
  For i:=0 to 6 do Writeln(Power(2,i),'  ',m[i],' шт.');
end.

Еще вариант:
Const
  NN = 7;
  money : array[1..7] of Integer = (1,2,4,8,16,32,64);
Var m : array[1..NN] of Integer;
  i,k,N : Integer;
Begin
  For i:=1 to NN do m[i]:=0;
  Readln(N);
  k:=NN;
  While N>0 do
  Begin
    If N>=money[k] then
    Begin
      N:=N-money[k];
      Inc(m[k]);
    end else Dec(k);
  end;
  For i:=1 to NN do Writeln(money[i],'  ',m[i],' шт.');
end.