сервис вопросов и ответовдана строка,состоящая из слов, разделенная пробелами (количество слов не менее3), вывести те слова, длина которых меньше,чем у предыдущего слова,и больше,
10-11 класс|
|
чем у последующего
Sovelev
30 июля 2013 г., 19:41:13 (10 лет назад)
WebeR
30 июля 2013 г., 21:45:04 (10 лет назад)
var
s: string;
arr: array of string;
begin
s := 'Привет дорогой мой прекрасный мир я так тебя люблю';
arr := s.Split(' ');
for i: byte := 1 to length(arr) - 2 do
if ((arr[i - 1].Length > arr[i].Length) and (arr[i].Length > arr[i + 1].Length)) then
writeln(arr[i], ' ');
end.
Ответить
Другие вопросы из категории
Используя табличный процессор Microsoft Excel, построить график
линейной функции и график системы уравнений.
народ хелп нужна помощь решите задачу в паскале. Покупатель должен заплатить в кассу 54321 р.У него имеются 1,10,100,1000 и 10000р.Сколько купюр
разного достоинства отдаст покупатель, если он начинает платить с самых крупных купюр?
Читайте также
ПАСКАЛЬ. Срочно!
Дана строка, состоящая из русских слов, разделенных пробелами (одним или несколькими). Найти количество слов в строке.
ПАСКАЛЬ.1)дан целочисленный массив из 30 элементов.элементы массива могут принимать целые значения от 0 до 1000.опишите на русском языке или на одном из
языков программирования алгоритм,позволяющий найти среднее арифметическое нечетных трехзначных чисел,записанных в этом массиве.если ни одного такого числа нет,нужно вывести сообщение об этом.
2)дан целочисленный массив из 30 элементов.элементы массива могут принимать целые значения от 0 до 100.опишите на русском языке или на одном из языков программирования алгоритм,позволяющий найти и вывести произведение элементов массива,которые имеют четное значение и не оканчиваются на 0.
Дана стока состоящая из латинских букв,в которой слова разделены пробелами(одним или несколькими).Напечатать те строки,которые отличны от последнего слова
и удовлетворяют след. свойству:
- слово совпадает с начальным отрезком латинского алфавита ('a','ab','abc' и т.д.)
P.s. Только решить её надо не использую строки.Вместо них array of char...
Пример ввода:
writeln('Введите предложение, символ конца - точка');
i := 0;
repeat
inc(i);
read(a[i])
until (a[i] = '.')or(i = n);
Заранее огромное спасибо.
Вы находитесь на странице вопроса "дана строка,состоящая из слов, разделенная пробелами (количество слов не менее3), вывести те слова, длина которых меньше,чем у предыдущего слова,и больше,", категории "информатика". Данный вопрос относится к разделу "10-11" классов. Здесь вы сможете получить ответ, а также обсудить вопрос с посетителями сайта. Автоматический умный поиск поможет найти похожие вопросы в категории "информатика". Если ваш вопрос отличается или ответы не подходят, вы можете задать новый вопрос, воспользовавшись кнопкой в верхней части сайта.