Сформировать новую строку, в которую включить все слова, длиной не более 4 символов

@Мони123 · Регистрация: 15.12.2015

Студворк — интернет-сервис помощи студентам

Дана строка, состоящая из слов, разделенных пробелами. Сформировать новую строку, в
которую включить все слова, длиной не более 4 символов.

@Puporev · 25.04.2016, 15:04

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
var s,s1,s2:string;
    i,j,n:integer;
begin
writeln('Введите строку из слов, разделенных пробелами');
readln(s);
n:=length(s);
s2:='';
i:=1;
while i<=n do
if (s[i]<>' ')and((i=1)or(s[i-1]=' '))then
 begin
  j:=i;
  s1:='';
  while(s[j]<>' ')and(j<=n) do
   begin
    s1:=s1+s[j];
    j:=j+1;
   end;
  if length(s1)<5 then s2:=s2+s1+' ';
  i:=i+length(s1);
 end
else i:=i+1;
if s2='' then write('Нет слов из 1..4 символов')
else write(s2);
end.

@schoolteacher · 28.04.2016, 14:15

С одним циклом:

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
var s,s1,s2:string;
    i,n:integer;
begin
 writeln('Введите строку из слов, разделенных пробелами');
 readln(s);
 n:=length(s);
 s1:=''; s2:='';
 i:=1;
 while i<=n do
  begin
   if s[i]<>' '
     then s1:=s1+s[i]
     else begin
       if (s1>'') and (length(s1)<5)
         then s2:=s2+s1+' ';
       s1:='';
       end;
   i:=i+1;
  end;
 if s2=''
   then write('Нет слов из 1..4 символов')
   else write(s2);
end.

Новые блоги и статьи Все статьи Все блоги /
Access VikBal 11.12.2025 Помогите пожалуйста !! Как объединить 2 одинаковые БД Access с разными данными.	Новый ноутбук volvo 07.12.2025 Всем привет. По скидке в "черную пятницу" взял себе новый ноутбук Lenovo ThinkBook 16 G7 на Амазоне: Ryzen 5 7533HS 64 Gb DDR5 1Tb NVMe 16" Full HD Display Win11 Pro	Музыка, написанная Искусственным Интеллектом volvo 04.12.2025 Всем привет. Некоторое время назад меня заинтересовало, что уже умеет ИИ в плане написания музыки для песен, и, собственно, исполнения этих самых песен. Стихов у нас много, уже вышли 4 книги, еще 3. . .	От async/await к виртуальным потокам в Python IndentationError 23.11.2025 Армин Ронахер поставил под сомнение async/ await. Создатель Flask заявляет: цветные функции - провал, виртуальные потоки - решение. Не threading-динозавры, а новое поколение лёгких потоков. Откат?. . .	Поиск "дружественных имён" СОМ портов Argus19 22.11.2025 Поиск "дружественных имён" СОМ портов На странице: https:/ / norseev. ru/ 2018/ 01/ 04/ comportlist_windows/ нашёл схожую тему. Там приведён код на С++, который показывает только имена СОМ портов, типа,. . .
Сколько Государство потратило денег на меня, обеспечивая инсулином. Programma_Boinc 20.11.2025 Сколько Государство потратило денег на меня, обеспечивая инсулином. Вот решила сделать интересный приблизительный подсчет, сколько государство потратило на меня денег на покупку инсулинов. . . .	Ломающие изменения в C#.NStar Alpha Etyuhibosecyu 20.11.2025 Уже можно не только тестировать, но и пользоваться C#. NStar - писать оконные приложения, содержащие надписи, кнопки, текстовые поля и даже изображения, например, моя игра "Три в ряд" написана на этом. . .	Мысли в слух kumehtar 18.11.2025 Кстати, совсем недавно имел разговор на тему медитаций с людьми. И обнаружил, что они вообще не понимают что такое медитация и зачем она нужна. Самые базовые вещи. Для них это - когда просто люди. . .	Создание Single Page Application на фреймах krapotkin 16.11.2025 Статья исключительно для начинающих. Подходы оригинальностью не блещут. В век Веб все очень привыкли к дизайну Single-Page-Application . Быстренько разберем подход "на фреймах". Мы делаем одну. . .	Фото: Daniel Greenwood kumehtar 13.11.2025

@Мони123 0 / 0 / 0 Регистрация: 15.12.2015 Сообщений: 5

	Сформировать новую строку, в которую включить все слова, длиной не более 4 символов 25.04.2016, 11:49. Показов 2638. Ответов 2 Метки нет (Все метки) Дана строка, состоящая из слов, разделенных пробелами. Сформировать новую строку, в которую включить все слова, длиной не более 4 символов. 0

Сформировать новую строку, в которую включить все слова, длиной не более 4 символов

Решение