требуется посчитать все символе в предложение {включая пробелы, дефисы и знаки препинания} и умножить на два так как за каждый символ нужно взять два байта
1) Пусть время, за которое передают файл размером 10 Мбайт со скоростью 2 621 440 бит/c, равно X. Следовательно, имеем уравнение: 10 Мбайт / X = 2 621 440 бит/c 10 * 1024 * 1024 * 8 бит / X = 2 621 440 бит/c 83 886 080 бит / x = 2 621 440 бит/c X = 83 886 080 бит / 2 621 440 бит/c = 32 c ответ: За 32 секунды.
2) Пусть наибольший размер файла, который может быть передан через соединение со скоростью 256 000 бит/с за 10 минут, равен X. Следовательно, имеем уравнение: X / 10 мин = 256 000 бит/c X / 10 * 60 с = 256 000 бит/с X / 600 c = 256 000 бит/с X = 256 000 бит/с * 600 с = 153600000 бит = 19200000 байт = 18750 Кбайт ответ: наибольший размер файла – 18750 Кбайт
3) В 2 байтах может уместится 65 536 разных значений, а именно столько разных цветов мы имеем. Значит, для хранения каждого пикселя нам надо 2 байта. 1024x800 = 1024*800 = 819 200 пикселей, а соответственно 2 * 819 200 = 1 638 400 байт. Пусть время, за которое передают файл размером 1 638 400 байт со скоростью 102 400 бит/c, равно X. Следовательно, имеем уравнение: 1 638 400 байт / X = 102 400 бит/c 1 638 400 * 8 бит / X = 102 400 бит/c 13107200 бит / X = 102 400 бит/с X = 13107200 бит / 102 400 бит/с = 128 c ответ: 128 секунд.
1. В приведенном коде ошибка. Не хватает ";" в третьей строке снизу. 2. Немного изменим ваш код и получим искомое значение x Искомое число х = 16293
var x, y, a, b, k: integer;
begin k:=10000; repeat x:=k; a := 0; b := 0; y := 1; while x > 0 do begin if (x mod 10) mod 2 = 0 then a := a * 10 + x mod 10 else begin y := y * 10; b := b * 10 + x mod 10 end; x := x div 10 end; a := a * y + b; k := k + 1; until a = 26391; writeln(a:8, k-1:8); end.
Ничто не истинно
Объяснение: