<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>
Ответ:
Первое слово - монитор
Второе слово - логика
3-е слово - клавиатура
Число: 11
Объяснение:
1-е слово - есть только в 3 таблице, т.е монитор
2-е в 1 и 4, т. е логика, слово число отпадает так как есть еще и в 3 таблице.
3-е слово клавиатура, так как есть во 2 и 4 табл.
Число : мОнИтОр (3) + лОгИкА (3) + клАвИАтУрА (5) = 3+3+5 =11
............................................