var
a:string;
begin
readln(a);
writeln(copy(a,1,length(a) div 2));
readln;
end.
Похожие записи/страницы:
- Определить слово максимальной длины в котором все символы различны и вывести его на экран - Pascal (Паскаль) - CF
- Дано не пустую последовательность из строчных латинских букв. Между соседними словами - запятая, после…
- Ввести в ЭВМ предложение длиной не более 70 символов. Подсчитать количество гласных букв в каждом его слове.…
- Дан текст на русском языке. Напечатать в алфавитном порядке все глухие согласные буквы, которые не входят только…
- Дана строка, содержащая текст, заканчивающийся точкой. Вывести на экран слова, содержащие три буквы - Pascal(Паскаль)
- Дано 2 слова длин a и b (a,bb). Нужно вывести наименьшее количество удалений и замен символов из строки а, чтобы…
- на входе вводится некоторое число строк(задается пользователем). Строки имеют следующий формат . Требуется найти…
- Слова в предложении разделены пробелом. Предложение заканчивается "." "!" "?". Определить слово с максимальным…