Дана строка. Если количество символов в ней нечетно ,то выведите на экран средний символ строки. Задача Паскаль.
Дана строка. Если количество символов в ней нечетно ,то выведите на экран средний символ строки. Задача Паскаль.
Гость
Ответ(ы) на вопрос:
Гость var
s : string;
l : integer;
begin
readln (s);
l := Length(s);
if l mod 2 = 1 then
writeln (s[l div 2 + 1]);
end.
Не нашли ответ?
Похожие вопросы