)) сообщение содержит информационный объём равный 1, 5 кб, в сообщении 3072 символа. сколько бит содержит один символ? сколько символов содержит алфавит, с которого записано данное сообщение?

1.5к  б=1,5*1024  б=1,5*1024*8  бит=12288  бит один символ содержит бит информации: 12288: 3072=4 бит, 24=16 символов содержит алфавит с которого записано данное сообщение.

языки программированияязык программирования - это система обозначений, служащая для точного описания программ или алгоритмов для эвм. языки программирования являются искусственными языками. от естественных языков они отличаются ограниченным числом “слов” и строгими правилами записи команд (операторов). поэтому при применении их по назначению они не допускают свободного толкования выражений, характерного для естественного языка.можно сформулировать ряд требований к языкам программирования и классифицировать языки по их особенностям.основные требования, предъявляемые к языкам программирования: наглядность - использование в языке по возможности уже существующих символов, хорошо известных и понятных как программистам, так и пользователям эвм; единство - использование одних и тех же символов для обозначения одних и тех же или родственных понятий в разных частях алгоритма. количество этих символов должно быть по возможности минимальным; гибкость - возможность относительно удобного, несложного описания распространенных приемов вычислений с имеющегося в языке ограниченного набора изобразительных средств; модульность - возможность описания сложных алгоритмов в виде совокупности простых модулей, которые могут быть составлены отдельно и использованы в различных сложных алгоритмах; однозначность - недвусмысленность записи любого алгоритма. отсутствие ее могло бы к неправильным ответам при решении [].в настоящее время в мире существует несколько сотен реально используемых языков программирования. для каждого есть своя область применения.

1)

var

i,n: integer;

begin

readln(n);

for i: =1 to n do writeln(i*i);

end.

2)

var

i,n: integer;

begin

readln(n);

for i: =1 to 10 do writeln(i: 2,'*',n,'=',i*n: 3);

end.

3)

var i,n: integer; p: real;

begin readln(n); p : = 1; for i : = 1 to n do p : = p * i; writeln(p: 15: 0); end.

4)

var

i,n: integer;

begin

readln(n);

for i: =1 to n do if (i mod 2=0) then writeln(i);

end.

5)

var

i,n,k: integer;

begin

readln(n);

k: =0;

for i: =1 to n do if (i mod 15=0) then k: =k+1;

writeln(k);

end.