Вывести на экран слова, состоящие только из букв

@krokibat · Регистрация: 21.04.2014

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

Помогите решить задачу,буду очень благодарен!

1.Вывести на экран слова, состоящие только из букв,учитывая символы-разделители: «пробел», «.», «,», «:», «;», «!», «?», «-», «(», «)

@VlaNik · 23.04.2014, 11:53

Pascal

var
s,slovo:string;
i,j,k:integer;
sg,zn:set of char;
begin
sg:=['0','1','2','3','4','5','6','7','8','9'];
zn:=[' ',',','!',';','.',':','?','-'];
writeln('vvedite stroku:');
readln(s);
writeln('Slova tolko iz bukv:');
for i:=1 to length(s) do
if (s[i] in zn) or (i=length(s))
then
begin
k:=0;
if (i=length(s))and(not(s[i]in zn)) then slovo:=slovo+s[i];
for j:=1 to length(slovo) do
if (slovo[j] in sg) then k:=1;
if (k=0)and(slovo<>'') then writeln(slovo);
slovo:='';
end
else
slovo:=slovo+s[i];
end.

@krokibat · 23.04.2014, 20:22 **[ТС]**

Спасибо!

@krokibat 0 / 0 / 0 Регистрация: 21.04.2014 Сообщений: 11
		1
	Вывести на экран слова, состоящие только из букв 23.04.2014, 11:17. Показов 1516. Ответов 2 Метки нет (Все метки) Помогите решить задачу,буду очень благодарен! 1.Вывести на экран слова, состоящие только из букв,учитывая символы-разделители: «пробел», «.», «,», «:», «;», «!», «?», «-», «(», «) 0

@krokibat 0 / 0 / 0 Регистрация: 21.04.2014 Сообщений: 11
	23.04.2014, 20:22 [ТС]	3
	Спасибо! 0

Вывести на экран слова, состоящие только из букв

Решение