Назначение 1. У Айгуль 10 строк на каждой странице по 40 знаков в каждой, всего 50 страниц.
читать книгу. Решение не соответствует количеству информации в книге
найти.
а) 2000 байт
б) 20000 байт
в) 19.5 Кб
г) 160 000 бит
2. Сообщение Баглана своему другу написано 16-символьным алфавитом.
Состоит из 14 персонажей. Сообщение Мардана состоит из 64 символов.
В алфавите использовалось 12 символов. Баглан написал больше всего информации?
Мардан писал? Найти решение.
если больше
3. Вставьте соответствующие слова в отведенное место.
а) Микросхемы процессора
Чем выше частота, тем быстрее обрабатывается информация.
б) Обратите внимание на количество, чтобы купить высокопроизводительный ноутбук
мы переводим.
в) Практически все, что делает компьютер
пьесы.
г) Быстро записать и временно сохранить необходимую информацию
разрешающее устройство
называется.
4. Задайте 850 байт файла со скоростью 100 бит / с за 1 минуту ты можешь скачать
!

1616 + (пример числа 888  - 8+8=16 и 8+8=16 записываем 16 16 в порядке невозрастания)
                                  979    9+7=16 и 7+9=16)
169 + (пример числа 790  7+9=16 и 9+0=9 записываем 16 и 9 в порядке невозрастания (убывания) 169
163 - (чтобы получить 16 нужно сложить (9 и 7) или (8 и 8) или (7 и 9) больше нет вариантов, тогда вторая цифра (7 или 8 или 9) плюс третья цифра какого-то числа в сумме должна получиться цифра 3  (такого быть не может)
1916 - (19 не можем получить, если взять максимальные цифры 9 и 9 получим только 18)
1619 - нарушение второго пункта (должно быть записано в порядке убывания)
316 - (если рассматривать 31 и 6 не может быть и если рассматривать 3 и 16 нарушение п.2)
916 - (см пункт 2)
116 + (пример числа 651  6+5=11 и 5+1=6 записываем 11 и 6 в порядке убывания (невозрастания) 11 6)
В итоге получаем три числа

Var
1 Задача
n, pr, i, a: integer;
begin
readln(n);
pr := 0;
for i := 1 to n do
begin
read(a);
if (a mod 3 = 0) then
if (pr > 0) then
pr := pr * a
else
pr := a;
end;
writeln(pr);
end.
2 Задача
var
n, i, pl, ot, a: integer;
begin
readln(n);
pl := 0;
ot := 0;
for i := 1  to n do
begin
read(a);
if (a >= 0) then
inc(pl, a)
else
begin
if (ot <> 0) then
ot := ot * a
else
ot := a;
end;
end;
if (pl > ot) then
writeln('Polozitelnii)
else
writeln('Otricat');
end.
var
n, i, a, posl, prd: integer;
begin
readln(n);
posl := 0;
prd := 0;
for i := 1 to n do
begin
read(a);
if (a < 0) then
begin
prd := posl;
posl := a;
end;
end;
if (posl = 0) then
writeln('Нет отрицательных')
else
writeln(prd);
end.