Правильный ответ 1 - 3 нуля
Program kontr;
var a:integer;
begin
writeln ('Vvedite celoe chislo');
readln(a);
if (a mod 3 = 0) then writeln ('Da')
else writeln ('Net');
end.
Я думаю что Белка, вторая не согласная и третья не гласная
Переведем килобайты в биты:
100 килобайт * 1024 байта в килобайте = 102400 байт.
переведем в биты:
102400 * 8 бит в байте = 819200 бита в сообщении.
Добавим избыточность. Нам по условию надо добавить 20\% информации
819200*1.20 = 983040 бит надо передать.
Рассмотрим пропускную способность канала
10 мегабит\секунду. переведем в килобиты:
10*1024 килобит в мегабите = 10240 килобит в секунду.
переведем в биты в секунду = 10240*1024 = 10485760 бит в секунду
разделим, чтобы определить время:
983040 бит / 10485760 бит в секунду = 0.09375 секунд
ответ: 0.09375 секунд
Блок схема во вложении.
Только сразу после элемента "начало" еще нужен блок прямоугольный с N:=20