Задачу решается вот таким жутким перебором (который, если немного подумать можно ещё сократить): //Рюмка+рюмка=авария var a,b,c,d,e,f,g,h:integer; begin for a:=1 to 9 do //р for b:=0 to 9 do //ю if (b<>a) then for c:=0 to 9 do //м if (c<>a)and(c<>b) then for d:=0 to 9 do //к if (d<>a)and(d<>b)and(d<>c) then for e:=1 to 1 do //а if (e<>a)and(e<>b)and(e<>c)and(e<>d) then for f:=0 to 9 do //в if (f<>a)and(f<>b)and(f<>c)and(f<>d)and(f<>e)then for g:=0 to 9 do //и if (g<>a)and(g<>b)and(g<>c)and(g<>d)and(g<>e)and(g<>f)then for h:=2 to 2 do //я if (h<>a)and(h<>b)and(h<>c)and(h<>d)and(h<>e)and(h<>f)and(h<>g)then if 2*(a*10000+b*1000+c*100+d*10+e)=e*100000+f*10000+e*1000+a*100+g*10+h then writeln(a*10000+b*1000+c*100+d*10+e,' ',e*100000+f*10000+e*1000+a*100+g*10+h); end.
Информационный объем текста с учетом избыточности составит 100 Кб × (1+25/100) = 125 Кб Переведем этот объем в килобиты. 1 Кб = 1024 б = 1024×8 бит = 8192 бита; 125 Кб = 125 × 8192 = 1 024 000 бит Определим время передачи. За 1 с передается 10 кбит, т.е. 10 000 бит. Тогда время передачи составит 1 024 000 / 10 000 = 102.4 с
Так задача должна решаться, если использованы единицы измерения информации по ГОСТ (1 Кбайт = 1024 байта, 1 кбит = 1000 бит). Обратите внимание, что у Кбайт буква "К" заглавная, что указывает на её внесистемность относительно системы СИ. Исторически пропускная каналов передачи данных измеряется в битах/с, причем с использованием системных приставок единиц измерения (к - кило, 10³, м - мега, 10⁶ и .т.д.).
Но тут в условии почему-то использована заглавная буква "К" и при указании скорости передачи, а по ГОСТ это означает множитель 2¹⁰ = 1024. Если придраться к этой записи, то мы имеем право написать, что 10 Кбит/с это 10 240 бит/с, а не 10 000 бит/с и в ответе получим ровно 100с.
//Рюмка+рюмка=авария
var a,b,c,d,e,f,g,h:integer;
begin
for a:=1 to 9 do //р
for b:=0 to 9 do //ю
if (b<>a) then
for c:=0 to 9 do //м
if (c<>a)and(c<>b) then
for d:=0 to 9 do //к
if (d<>a)and(d<>b)and(d<>c) then
for e:=1 to 1 do //а
if (e<>a)and(e<>b)and(e<>c)and(e<>d) then
for f:=0 to 9 do //в
if (f<>a)and(f<>b)and(f<>c)and(f<>d)and(f<>e)then
for g:=0 to 9 do //и
if (g<>a)and(g<>b)and(g<>c)and(g<>d)and(g<>e)and(g<>f)then
for h:=2 to 2 do //я
if (h<>a)and(h<>b)and(h<>c)and(h<>d)and(h<>e)and(h<>f)and(h<>g)then
if 2*(a*10000+b*1000+c*100+d*10+e)=e*100000+f*10000+e*1000+a*100+g*10+h then
writeln(a*10000+b*1000+c*100+d*10+e,' ',e*100000+f*10000+e*1000+a*100+g*10+h);
end.
Результат:
85931 171862
100 Кб × (1+25/100) = 125 Кб
Переведем этот объем в килобиты.
1 Кб = 1024 б = 1024×8 бит = 8192 бита;
125 Кб = 125 × 8192 = 1 024 000 бит
Определим время передачи.
За 1 с передается 10 кбит, т.е. 10 000 бит.
Тогда время передачи составит 1 024 000 / 10 000 = 102.4 с
Так задача должна решаться, если использованы единицы измерения информации по ГОСТ (1 Кбайт = 1024 байта, 1 кбит = 1000 бит). Обратите внимание, что у Кбайт буква "К" заглавная, что указывает на её внесистемность относительно системы СИ. Исторически пропускная каналов передачи данных измеряется в битах/с, причем с использованием системных приставок единиц измерения (к - кило, 10³, м - мега, 10⁶ и .т.д.).
Но тут в условии почему-то использована заглавная буква "К" и при указании скорости передачи, а по ГОСТ это означает множитель 2¹⁰ = 1024.
Если придраться к этой записи, то мы имеем право написать, что 10 Кбит/с это 10 240 бит/с, а не 10 000 бит/с и в ответе получим ровно 100с.
Выбор за автором вопроса.