Сколько символов в тексте, если мощность алфавита – 256 символа, а объем информации, содержащейся в нём 0, 75 Кбайта?

768

Объяснение:

1) Мощность алфавита равна 256. Найдем вес одного символа в битах: (найдем -  i)

N =

N - мощность алфавита

i - вес одного символа

256 = , следовательно, вес одного символа = 8 бит, или 1 байт (т.к. 1 байт=8 бит)

переводим Килобайты в байты: 0,75Кб * 1024 = 768 байт

т.е. 768 символов в тексте.

Какую операционную систему используешь? если Linux то:
1) g++ -c mprog.cpp -o mprog.o (-o "output" - файл вывода, -c означает "только компиляция", т.е. не связывать твой файл со сторонними билиотеками типа libc, получим просто файл с машинными командами особо ни к чему не привязанный ".o" - object file, если особо интересно, что же там лежит, можно вызвать "objdump -D mprog.o" либо g++ -S -masm=intel -O0 mprog.cpp, вывод будет в mprog.s)
2) g++ -c prog.cpp -o prog.o (то же самое)
3) g++ prog.o mprog.o -o prog (выполняем связывание двух обектных файлов между собой и со стандартными библиотеками, опять же новое содержимое можно посмотреть "objdump -D mprog")
4) ./prog - запустить твою программу и передать управление в начало функции main (и не важно, в каком файле она лежала, главное, чтобы была одна, хотя иначе шаг 3 выдаст ошибку)
Если винда, то запусти поиск по диску С "mingw32-g++.exe" и через командную строку вызывай для него
1) ...путь...\mingw32-g++.exe -c mprog.cpp -o mprog.o
2) ...путь...\mingw32-g++.exe -c prog.cpp -o prog.o
3) ...путь...\mingw32-g++.exe prog.o mprog.o -o prog.exe 
4) prog.exe

1. Вот так сейчас решают подобные задачи:

// PascalABC.NET 3.1, сборка 1174 от 22.02.2016
begin
  Writeln(Range(1,100).Select(i->sin(i)*cos(i)).Where(x->x<>0).Average)
end.

Тестовое решение:
-0.00136006072493969

2. А вот так учат писать это же школьные учителя:

// PascalABC.NET 3.1, сборка 1174 от 22.02.2016
var
  m:array[1..100] of real;
  i,k:integer;
  s:real;

begin
  s:=0;
  k:=0;
  for i:=1 to 100 do begin
    m[i]:=sin(i)*cos(i);
    if m[i]<>0 then begin
      s:=s+m[i];
      k:=k+1
      end
    end;
  Writeln(s/k)
end.

Тестовое решение:
-0.00136006072493969