Const n=30;
var a:array[1..n] of integer;
i,min:integer;
begin
min:=1000;
for i:=1 to n do
begin
readln(a[i]);
if (a[i] div 100>=1) and(a[i]<min) then min:=a[i];
end;
if (min=1000) then writeln('Такого числа нет')
else writeln('Минимальное 3-значное число равняется ',min);
<span>end.</span>
1. Переданная информация в битах:
6400 килобайт * 1024 = 6553600 байт.
переведем в биты:
6553400 * 8 = 52428800 бит
2. Разберемся с избыточностью. По условию надо добавить 10% информации
52428800*1.1 = 57671680 бит передаем.
3. Рассмотрим пропускную способность канала
5 мегабит\секунду. переведем в килобиты:
5*1024 = 5120 килобит в секунду.
переведем в биты в секунду = 5120*1024 = 5242880 бит в секунду
4. Находим время передачи информации:
57671680 / 5242880 = 10.987
Ответ: Около 11 сек
для расшифровки нужно применить обратный алгоритм
1) написать название животного
2) для первой буквы названия найти предыдущую по алфавиту
Животные: (некоторые подбирались исходя из ответа)
Улитка - Т
Бык - А
Лев - К
Енот - Д
Ёж - Е
Сова - Р
Зебра - Ж
Белка - А
Утка - Т
Эму - Ь
Ответ - Так держать
Код и результат выполнения на скриншотах.
Если хочешь вывести текст
write('текст'); //Ковычки одинарные
если ты хочешь вывести переменную то без кавычек
a := 1;
write(a);
Также можешь добавить в конец "ln" т.е. writeln(...); после того как выведет он перенесет на следующую строку
Оператор ввода:
Read(переменная); read(a); read(b);
Также и тут можешь перенести строку:
Readln(...);
