По каналу связи непрерывно в течении 10 часов передаются данные. Скорость передачи данных в течении первых 6 часов составляет 512 Кбит в секунду, а остальное время - в два раза меньше. Сколько Мбайт данные было передано за время работы канала? решение:
Объём информации вычисляется по формуле Q = q * t, где t — время передачи q — cкорость передачи данных.
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.
По каналу связи непрерывно в течении 10 часов передаются данные. Скорость передачи данных в течении первых 6 часов составляет 512 Кбит в секунду, а остальное время - в два раза меньше. Сколько Мбайт данные было передано за время работы канала?
решение:
Объём информации вычисляется по формуле Q = q * t, где t — время передачи q — cкорость передачи данных.
Учтём, что в одном часе 3600 секунд, поэтому
Q = 512 Кбит/с * 6 * 3600 с + 512 / 2 Кбит/с * (10 - 6) * 3600 с = 14 745 600 Кбит = 1 843 200 Кбайт = 1800 Мбайт.
ответ: 1800.
Напишите мне письмо, я вам прекреплю файль с решением еще задания
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.