Сколько килобайт составит сообщение из 384 символов 16-ти символьного алфавита? )* 8 класс

16 = 2^4 значит символ веси 4 бит вес текста = 384 * 4 бит = 1536.0 бит = 192.0 байт = 0.1875 кбайт

Обратим внимание, что 2 и 3 предполагают одинаковый результат: в самом деле, если число оканчивается на 2, то оно четное, т.е. кратно двум, что приводит 3 к 2. для 1 или 2,3 оставляем в программе только нужную строку.в соответствии с комментарием. // pascalabc.net 3.2, сборка 1374 от 10.01.2017 // внимание! если программа не работает, обновите версию! begin   var a: =arrrandom(readinteger('n='),1,99); a.println;   writeln('k=',a.where(k-> k.iseven).count); // для 1   writeln('s=',a.where(k-> k mod 10=2).sum) // для 2/3 end. пример n= 17 61 32 83 78 47 80 85 64 52 85 30 77 96 81 14 65 67 k=8 s=84

1)

var a: array [1..100] of integer; объявляем массив

i,n: byte; объявляем переменную i и переменную   n   для хранения количества элементов

 

begin

write('введите n = '); readln(n); вводим n

for i: =1 to n do begin от 1 до n   цикл 

write('a[',i,']=');

readln(a[i]); вводим элементы в массив

end;

write('исходный массив:   ');

for i: =1 to n do выводим наш массив полностью

write(a[i],' ');

writeln;

write('результат:   '); выводим результат, в данном случае все элементы стоящие на четных местах

for i: =1 to n do

if i mod 2 =0 then write(a[i],' '); проверка на четность, мод - это оператор деления по остатку, если индекс делится на 2 без остатка, то выводим элемент

end.

 

2)

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

i,n: byte; s: longint; s объявляем для хранения суммы элементов

 

begin

s: =0; обнуляем s

write('введите n = '); readln(n);   тут тоже самое, что и в первой

for i: =1 to n do begin

write('a[',i,']=');

readln(a[i]);

s: =s+a[i]; вот здесь мы складываем каждый элемент массива в переменную s

end;

write('исходный массив:   ');

for i: =1 to n do   вывод массива

write(a[i],' ');

writeln('сумма всех элементов массива = ',s); вывод суммы

end.

 

удачи=)