1. дано слово. удвоить в нем все буквы, стоящие на четных местах 2. составьте программу, определяющую, на какую букву заканчивается второе слово в предложении

for i : = 1 to length(s) do

begin

      res : = res + s[i];

      if i mod 2 = 0 then

            res : = res + s[i];

end;

writeln(res);

 

 

i : = pos(" ",s); {ищем первый пробел}

delete(s; i; 1); {удаляем первый пробел}

i : = pos(" ",s); {ищем второй пробел, котрый теперь первый}

writeln(s[i-1]); {выдаем знак который находится перед пробелом}

 

 

 

ответ: 10. Сообщение, записанное буквами из 64-х символьного алфавита, содержит 20 символов.

Какой объём оно несёт?

Дано:

N = 64 символа

K = 20 символов

lc =?

Найти:

Какой объём оно несёт?

Из формулы N = 2i определим вес 1 символа алфавита: 64 = 2^i → 64 = 2^6 → i^6. Из формулы lc = Kxi определим количество информации в сообщении lc = 20x6 = 120 бит

ответ: Сообщение несёт 120 бит информации.

9. Сообщение занимает 3 страницы по 25 строк. В каждой строке по 60 символов. Сколько символов в использованном алфавите, если всё сообщение содержит 1125 байтов?

Дано:

Iт = 1125 байтов

x = 25 – количество строк

y = 60 – количество символов в строке

M = 3 – количество страниц

Найти:

N = ?

1) N = 2i, неизвестно I; 2) Iт = K*I, I = Iт/K; 3) K = x * y * M = 25 * 60 * 3 = 4 500 символов – в тексте; 4) I = Iт/K = 1 125 * 8/ 4500 = 2 бита – объём одного символа; 5) N = 22 = 4 символа – в алфавите.

ответ: в алфавите 4 символа.

Программа:

Pascal:

var

 chemodan, klad, dop: real;

begin

 write('Вес чемодана', #10, '<<< '); readln(chemodan);

 write('Вес ручной клади', #10, '<<< '); readln(klad);

 write('Вес доп. предметов ручной клади', #10, '<<< '); readln(dop);

 writeln('Вес багажа: ', chemodan + klad + dop);

end.

Python:

chemodan = float(input('Вес чемодана\n>>> '))

klad = float(input('Вес ручной клади\n>>> '))

dop = float(input('Вес доп. предметов ручной клади\n>>> '))

print('Вес багажа:', chemodan + klad + dop)