Узнаем, сколько бит информации приходится на один символ
2^N=16
N=4(Бит)
Теперь узнаем, сколько всего символов было в сообщении(Обозначим буквой T)
T=960/4
T=240 (Символов)
Ответ:240
До второй половины XIX в. – «ручная» информационная технология, инструментами при котором были перо, чернильница, бумага;
С конца XIX в. – «механическая» технология, инструментарий которой составляли пишущая машинка, телефон, диктофон, почта;
1940—1960-е гг. XX в. – «электрическая» технология, инструментарий которой составляли большие электронно-вычислительные машины (ЭВМ) и соответствующее программное обеспечение, электрические пишущие машинки, ксероксы, портативные диктофоны;
С начала 1970-х гг. – «электронная» технология, основным инструментарием являются большие ЭВМ и создаваемые на их базе автоматизированные системы управления (АСУ) и информационно-поисковые системы (ИПС), которые оснащены широким спектром программных комплексов;
С<span> середины 1980-х гг. – «компьютерная» технология, основной инструментарий – ПК с широким спектром стандартных программных продуктов разного назначения.</span>
program z1;
var a,b,k,i:integer;
begin
k:=0;
write('Ââåäèòå êîîðäèíàòó à: ');
read(a);
write('Ââåäèòå êîîðäèíàòó b: ');
read(b);
for i:=a to b do begin
if i mod 3=0 then begin
writeln(i);
k:=k+1;
end;
end;
writeln('Количество чисел кратных трём равно ',k);
readln;
end.
а я разве их не решал????????
но ладнооо
1)
Program Pr1;
uses crt;
var stroka:string;
i,k,x:integer;
mas:array[byte] of integer;
Begin
clrscr;
readln(stroka);
i:=1;
repeat
val(stroka[i],k,x);
mas[i]:=k;
i:=i+1;
until i=length(stroka);
x:=0;
for i:=1 to length(stroka) do x:=x+mas[i];
if x=10 then writeln('TRUE')
else writeln('ELSE');
end.
2 я не знаю как решать
3)
Program Pr1;
uses crt;
var stroka:string;
i,k,x:integer;
mas:array[byte] of integer;
begin
clrscr;
readln(stroka);
i:=1;
while i<=length(stroka) do begin
val(stroka[i],k,x);
mas[i]:=k;
i:=i+1;
end;
x:=0;
for i:=1 to length(stroka) do x:=x+mas[i];
writeln(x);
end.
4)
Program Pr1;
uses crt;
var stroka:string;
i,k,x:integer;
mas:array[byte] of integer;
begin
clrscr;
readln(stroka);
i:=1;
while i<=length(stroka) do begin
val(stroka[i],k,x);
mas[i]:=k;
i:=i+1;
end;
x:=0;
for i:=1 to length(stroka)-1 do
for k:=1 to length(stroka)-i do if mas[k]=mas[k+1] then x:=x+1;
if x>0 then writeln('TRUE')
else writeln('FALSE');
end.