Вывести на экран слова,содержащие три буквы Опции

[lansel]

помогите пожалуйста,оч плохо соображаю в паскале
....Дана строка содержащая текст , заканчивающиеся точкой. Вывести на экран слова,содержащие три буквы,Напишите программу для ее решения

Сообщение отредактировано: lansel - 16.12.2009 22:22

[lansel]

ни кто чтоль ни чего не понимает?свиду все правильно,четко объясняю

Добавлено через 5 мин.

var
  s,t,s1,s2: string;
  i: integer;

begin
  clrscr;
    write ('vved text');readln(s);
    s:=' '+s+' ';
    if (s[i]=' ') and (s[i+4]=' ') then 
      begin 
        s1:=copy (s,s[i],s[i+4]);
        s2:=copy (s,s[i+4],s[i]);
           if pos(' ',s1)=0 and pos(' ',s2)=0 

вот что то в ней не хватает,сам не знаю чего

Сообщение отредактировано: Lapp - 27.12.2009 19:22

[Lapp]

вот что то в ней не хватает,сам не знаю чего

Если ты не знаешь - откуда нам знать? Речь ведь идет не о РЕШЕНИИ, а об УСЛОВИИ. Скажешь, что тебе нужно - тогда будем думать, как исправлять. Понимаешь? Не программу приводи, а условие.