Переведем килобайты в биты:
100 килобайт * 1024 байта в килобайте = 102400 байт.
переведем в биты:
102400 * 8 бит в байте = 819200 бита в сообщении.
Добавим избыточность. Нам по условию надо добавить 20\% информации
819200*1.20 = 983040 бит надо передать.
Рассмотрим пропускную способность канала
10 мегабит\секунду. переведем в килобиты:
10*1024 килобит в мегабите = 10240 килобит в секунду.
переведем в биты в секунду = 10240*1024 = 10485760 бит в секунду
разделим, чтобы определить время:
983040 бит / 10485760 бит в секунду = 0.09375 секунд
ответ: 0.09375 секунд
var
a,b,c:integer;
begin
write('a: ');
readln(a);
write('b: ');
readln(b);
write('c: ');
readln(c);
writeln('sum = ',a+b+c);
end.
При чтении массива вложенный цикл, а переменная одна и та же j ,
for j:=1 to 4 do
begin
for j:=1 to 4 do
замените в первом цикле
for i:=1 to 4 do
Из тележки товар с ценником 50 попадет на верхнюю полку, остальные на нижнюю т. к. условие 200>цены товара подходит только для ценника 50.
<h3>// PascalABC.NET 3.4.2, сборка 1864 от 11.11.2018</h3><h3>// Внимание! Если программа не работает, обновите версию!</h3>
begin
if ReadInteger('Введите x:').IsOdd then Print('Это нечетное число')
else Print('Это четное число')
end.