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

@Mr.Hyde · Регистрация: 11.04.2012

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

@Lilu666 · 06.06.2012, 19:45

Pascal

uses crt;
var i: integer;
    c,s: string;
begin
clrscr;
      write ('vvedite stroku: '); readln (s);
      for i:=1 to length(s) do
          if (s[i]<>' ') and (s[i]<>'.') then c:=c+s[i]
             else begin
                  if length (c)=3 then writeln (c);
                  c:=''; end;
readkey;
end.

@Mr.Hyde 0 / 0 / 0 Регистрация: 11.04.2012 Сообщений: 10
		1
	Дана строка, содержащая текст, заканчивающийся точкой. Вывести на экран слова, содержащие три буквы 06.06.2012, 16:46. Показов 9831. Ответов 1 Метки нет (Все метки) Дана строка, содержащая текст, заканчивающийся точкой. Вывести на экран слова, содержащие три буквы. __________________ Помощь в написании контрольных, курсовых и дипломных работ, диссертаций здесь 0

Опции темы

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

Решение