помогите решить, пожалуйста!
вводится непустая последовательность символов,заканчивающихся точкой. отдельные слова в ней разделены пробелами.распечатать в лексикографическом порядке слова не содержащие ни одной буквы "а".
|
|
|
|
var
a,b:string;
i,c,h:byte;
begin
readln(a);
repeat begin
c:=pos('.',a);
b:=copy(a,1,c);delete(a,1,c);
h:=pos('a',b);
if h=0 then write(b,' ');
end;
until c<>0;
end.
"Спасибо" принимается повышением репутации ( Зелёный плюсик:) ). Спасибо
Нужна помощь? Сюда: vkontakte.ru/berestovskiy
|
|
|
|
