Дана строка. Если количество символов в ней нечетно, то выведите на экран средний символ строки. Задача Паскаль.

Question

Ася

27 июня, 22:50

+5

Ответы (1)

Знаете ответ на вопрос?

Милан · Answer 1

var

s : string;

l : integer;

begin

readln (s) ;

l : = Length (s) ;

if l mod 2 = 1 then

writeln (s[l div 2 + 1]) ;

end.