Срефератом статистика труда рассмотрите данную тему с точки зрения информатики.с каких программ можно реализовать данный процесс? какие возможности программ при этом используются(диаграммы, таблицы, функции, для выполнения статистических расчётов? )

Информация в компьютере представлена в двоичном коде, алфавит которого состоит из двух цифр (0 и 1).Цифры двоичного кода можно рассматривать как два равновероятных состояния (события). При записи двоичной цифры реализуется выбор одного из двух возможных состояний (одной из двух цифр) и, следовательно, она несет количество информации, равное 1 биту.Даже сама единица измерения количества информации бит (bit) получила свое название от английского словосочетания Binary digiT (двоичная цифра).Важно, что каждая цифра машинного двоичного кода несет информацию в 1 бит. Таким образом, две цифры несут информацию в 2 бита, три цифры - в 3 бита и так далее. Количество информации в битах равно количеству цифр двоичного машинного кода.Каждая цифра машинного двоичного кода несет количество информации, равное одному биту.

1.

var N: integer;

var s: string;

begin

write('Введите строку: ');

readln(s);

write('Введите N: ');

readln(N);

if (s.Length>N) then s:=s.Substring(0,N);

writeln('Результат: ',s);

end.

2.1 (С циклом For)

var s: string;

var c: char;

var i,n: integer;

begin

n:=0;

write('Введите строку: ');

readln(s);

write('Введите символ: ');

readln(c);

for i:=1 to s.Length do

if (s[i]=c) then n:=n+1;

writeln('Символ ',c,' встречается в тексте ',n,' раз');

end.

2.2 (С циклом Repeat)

var s: string;

var c: char;

var i,n: integer;

begin

n:=0;

i:=1;

write('Введите строку: ');

readln(s);

write('Введите символ: ');

readln(c);

Repeat begin

if (s[i]=c) then n:=n+1;

i:=i+1;

end;

until i=s.Length+1;

writeln('Символ ',c,' встречается в тексте ',n,' раз');

end.