<h3>PascalABC.NET 3.4.2, сборка 1864 от 11.11.2018</h3><h3>Внимание! Если программа не работает, обновите версию!</h3>
procedure СредняяЦифра(Число: int64; var Цифра: integer);
begin
var СтроковоеПредставление := Число.ToString;
var ЧислоРазрядов := СтроковоеПредставление.Length;
var ПозицияЦифры := ЧислоРазрядов div 2 + 1;
Цифра := СтроковоеПредставление[ПозицияЦифры].ToDigit
end;
begin
var ЗаданноеЧисло: int64;
Read(ЗаданноеЧисло);
var ИскомаяЦифра: integer;
СредняяЦифра(ЗаданноеЧисло, ИскомаяЦифра);
ИскомаяЦифра.Println
end.
<h2>Пример</h2><h2>123643523</h2><h2>4 </h2>
0,5кБайт = 512Байт
128бит = 16 Байт
512Байт/16Байт=32
Ответ: Объём первого сообщения в 32 раза больше второго.
1. Китайцы - мышонок, Немцы - обезьяний хвост, Итальянцы и французы - улитка
Пока сверху и не слева стена
вперед
вниз
вниз
вниз
вправо
вправо
вправо
закрасить
пока сверху стена
закрасить вперед
пока не снизу стена
закрасить
вниз
пока снизу стена
закрасить
влево
наверх
закрасить
направо
закрасить
направо
закрасить
направо
закрасить
направо
закрасить