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

@amitistka · Регистрация: 15.01.2010

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

@andrei63 · 28.01.2010, 17:33

Pascal

var s,b,s1:string;
n,n1,i,k,z:integer;
a:array[1..10] of string;
begin
 
readln(s);
s:=s+' ';
repeat
b:=' ';
n:=pos(b,s);
k:=n-1;
s1:=copy(s,1,k);
n1:=length(s1);
if n1=3 then a[i]:=s1;
delete(s,1,n);
z:=z+1;
until n=0;
for i:=1 to z do
writeln(a[i]);
readln;
end.
readln;
end.

как то так

@amitistka 0 / 0 / 0 Регистрация: 15.01.2010 Сообщений: 20
		1
	Вывести на экран слова, содержащие три буквы 28.01.2010, 14:31. Показов 1517. Ответов 1 Метки нет (Все метки) 1. дана символьная строка ,содерщая текст, заканчиваюшияся точкой. Вывести на экран слова, содержащие три буквы __________________ Помощь в написании контрольных, курсовых и дипломных работ, диссертаций здесь 0

Опции темы

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

Решение