Question

Найти среднюю цифру натурального числа (только для чисел с нечётным количеством цифр).

Написать на PascalABC.NET, используя процедуру, заранее спасибо.

Answer 1

PascalABC.NET 3.4.2, сборка 1864 от 11.11.2018

Внимание! Если программа не работает, обновите версию!

procedure СредняяЦифра(Число: int64; var Цифра: integer);

begin

 var СтроковоеПредставление := Число.ToString;

 var ЧислоРазрядов := СтроковоеПредставление.Length;

 var ПозицияЦифры := ЧислоРазрядов div 2 + 1;

 Цифра := СтроковоеПредставление[ПозицияЦифры].ToDigit

end;

begin

 var ЗаданноеЧисло: int64;

 Read(ЗаданноеЧисло);

 var ИскомаяЦифра: integer;

 СредняяЦифра(ЗаданноеЧисло, ИскомаяЦифра);

 ИскомаяЦифра.Println

end.

Пример

123643523

4