Если дана последовательность, содержащая от 2 до 50 слов, в каждом из которых от 1 до 10 символов; между соседними словами - не менее одного пробела, за последним словом - точка. Напечатать слова больше 1. (желательно использовать ф-ции работы со строками)
Ромаха
11.01.2013 1:22
Вечер добрый
Цитата
Напечатать слова больше 1.
Наверное, тут подразумевается что кол-во символов в слове более 1. Что ж lemon-ka, данная задача не раз (как я думаю) встречалась на форуме, но если уж срочно (хотя уже 2 дня прошло )
// Писал в браузере => не проверял
const PRE = [' ', '.', ',', ':']; // Если кто-либо подскажется мне другое имя для константы, то буду премного благодарен
var s, word : string; i : Integer;
begin ReadLn (s); word := '';
for i := 1 to Length(s) do begin if s[i] in PRE then begin if Length(word) > 1 then Write (word); word := ''; end else word := word + s[i] end end.
Это текстовая версия — только основной контент. Для просмотра полной версии этой страницы, пожалуйста, нажмите сюда.