Предмет: Информатика,
автор: Kristifileva
Дана строка. Если количество символов в ней нечетно ,то выведите на экран средний символ строки. Задача Паскаль.
Ответы
Автор ответа:
0
var
s : string;
l : integer;
begin
readln (s);
l := Length(s);
if l mod 2 = 1 then
writeln (s[l div 2 + 1]);
end.
s : string;
l : integer;
begin
readln (s);
l := Length(s);
if l mod 2 = 1 then
writeln (s[l div 2 + 1]);
end.
Интересные вопросы
Предмет: Другие предметы,
автор: Аноним
Предмет: Другие предметы,
автор: Аноним
Предмет: Другие предметы,
автор: пстрвчлвяряу
Предмет: Математика,
автор: Kri121
Предмет: Математика,
автор: dkpg