В условии задачи есть ошибка (или неверная запись). Должно быть так:
<span>Используя m двоичных разрядов можно закодировать N=2^m (2 в степени m) независимых значений/
Для кодирования 64 различных значений необходимо 6 двоичных разрядов (2^6=64)</span>
Решение в лоб :D, только желательно запускай прогу отдельно в папке.
Program out;
var fo:text;
begin
assign(fo,'output.txt');
rewrite(fo);
Writeln(fo,'Program AplusB;');
Writeln(fo,'var A,B: Integer;');
Writeln(fo,'begin');
Writeln(fo,' Assign(input,''input.txt'');');
Writeln(fo,' Reset(input);');
Writeln(fo,' Assign(output,''output.txt'');');
Writeln(fo,' Read(A,B);');
Writeln(fo,' ReWrite(output);');
Writeln(fo,' WriteLn(A+B);');
Writeln(fo,' Close(input);');
Writeln(fo,' Close(output);');
Writeln(fo,'end.');
close(fo);
end.
Держи! Код прикрепил ниже.
1) если отвечают Да или нет: 5 вопросов
2) 128 символов=2^7=7бит
5 знаков= 5*7=35бит
Код полностью
//PascalABC.NET 3.1 сборка 1239
var
a, b, c: integer;
begin
a := 9;
b := 3;
c := 1;
while not (a = b) do
begin
c := c + (a - b);
a := a - 1;
b := b + 1;
{Println(a, b, c);}
end;
writeln('c=',c);
{2}
a := 10;
b := 2;
while not (a <5) do
begin
b := b + 10-a;
a := a - 1;
{Println(a, b, c);}
end;
writeln('b=',b);
end.
Вывод программы
c=13
b=17