Задание 3: сообщение состоит из 10 страниц, на каждой странице написано 305 символов. Определите, сколько различных символов содержится в используемом алфавите, если объем информации в сообщении составляет 1525 байт.:

16 символов

Объяснение:

I = К * i, где

I - информационный объём сообщения (документа)

К - количество символов в сообщении (документе)

i - информационный вес символа (количество бит, которым кодируется 1 символ)

N = 2^i, где

N - мощность алфавита (количество символов в алфавите)

i - информационный вес символа (количество бит или байт, которым кодируется 1 символ)

Дано:

K = 10 страниц * 305 символов = 3050 символов

I = 1 525 байт = 12 200 бит

Найти:

N

I = К * i

i = I / K

i = 12 200 / 3050 = 4 бит

N = 2^4 = 16 символов

1 байт = 8 бит

Робо-Сумо Ev3 роботтарының ең қызықты жарыстарының бірі. Жарыста робот қарсылас роботты шеңберден шығарып, өзі сонда қалуы керек.

Робо Сумо өтетін алаңның 2түрі бар. Біреуі қара сызықпен қоршалған ақ шеңбер. Екіншісі ақ сызықпен қоршалған қара шеңбер. Робо сумо атауы жапондардың Сумо ойыны арқылы пайда болған. Робо сумоның атауы осы күреске негізделіп қойылған

Ал, Робот шекараны "іздеуге" жауап беретін бірнеше IR сенсорларымен жабдықталған. Алдыңғы сенсорлар әдетте қозғалыс жылдамдығын басқаруға көмектеседі-күрескер шамадан тыс құлшынысқа байланысты алаңнан шықпауы керек. Артқы датчиктер сақина шекарасына жақындауды "бақылайды": олардан жауап алғаннан кейін робот қозғалыс бағытын өзгертеді. Сәулелерді шағылыстыруға қажетті уақытты өлшеу арқылы сіз жаудың орналасқан жерін түсінуге болады. Көптеген роботтар (бірақ бәрі бірдей емес) осы параметрді ескере отырып бағытты өзгертеді. Датчик түстерді ажыратады және қарсыласты қайда итеру керектігі үшін және роботтардың алға жылжуы үшін керек. Онсыз жұмыс істемейді.

program zadagha_1;

var

a: array[1..8] of integer;

i,sum:integer;

begin

writeln('vvedite 8 chisel');

for i:=1 to 8 do read(a[i]);

sum:=0;

for i:=1 to 8 do begin

if i mod 2 <> 0 then begin

sum:=sum+a[i];

writeln(a[i]);

end;

end;

writeln();

writeln('summa elementov c nechetnim N =', sum);

end.

program zadagha_2;

var

b: array[1..1000] of integer;

i,a,n:integer;

begin

writeln('vvedite chislo - kolichestvo elementov massiva');

readln(n);

for i:=1 to n do begin

b[i]:=random(1000);

write(b[i]:6);

end;

writeln();

writeln('vvedite chislo');

readln(a);

write ('elementi > dannogo chisla: ');

for i:=1 to n do begin

if b[i]>a then write (i:4);

end;

end.

program zadacha_3;

var

a: array[1..100] of integer;

i,n,k: integer;

begin

n:=random(100);

for i:=1 to n do begin

a[i]:=random(1000)-500;

write(a[i]:6);

end;

writeln();

writeln('vvedite chislo');

readln(k);

writeln('v massive chisly ',k, ' kratni: ');

for i:=1 to n do begin

if (a[i] mod k = 0) and (a[i]>0)  then begin

write(a[i]:6);

end;

end;

end.