Дана строка, состоящая из русских слов, разделенных пробелами

@Chinobi · Регистрация: 12.11.2014

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

Дана строка, состоящая из русских слов, разделенных пробелами. Вывести слова с количеством букв меньше или равном 5. Pascal

@Joy · 12.11.2014, 13:49

Pascal

var
  s:string;
begin
    write('введите строку:');
    readln(s);s:=s+#32;
    while pos(#32,s)>0 do begin
      if pos(#32,s) in [2..6] then writeln(copy(s,1,pos(#32,s)-1));
      delete(s,1,pos(#32,s));
    end;   
end.

@CodeR · 12.11.2014, 13:49

Pascal

 Var s,sl:string;
 Begin
     write('Введите строку: ');readln(s);
     s:=s+' ';
     While Pos(' ',s)>0 do
     Begin
       sl:=Copy(s,1,Pos(' ',s)-1);
       Delete(s,1,Pos(' ',s));
       if (Length(sl)<=5)and(sl<>'') then writeln(sl);
     End;
     readln;
 End.

@APALoff · 12.11.2014, 16:13

Не по теме:

Joy, CodeR, судя по времени создания Ваших постов и почти идентичности кодов делаю вывод: Вы даже печатаете на клавиатуре с одинаковой скоростью! =)

@Chinobi 0 / 0 / 0 Регистрация: 12.11.2014 Сообщений: 15
		1
	Дана строка, состоящая из русских слов, разделенных пробелами 12.11.2014, 13:04. Показов 2755. Ответов 3 Метки нет (Все метки) Дана строка, состоящая из русских слов, разделенных пробелами. Вывести слова с количеством букв меньше или равном 5. Pascal 0

@APALoff
	12.11.2014, 16:13 Дана строка, состоящая из русских слов, разделенных пробелами #4
	Не по теме: Joy, CodeR, судя по времени создания Ваших постов и почти идентичности кодов делаю вывод: Вы даже печатаете на клавиатуре с одинаковой скоростью! =) 0

Опции темы

Дана строка, состоящая из русских слов, разделенных пробелами

Решение