Новые сообщения · Правила  
Страница 1 из 11
Модератор форума: Berestovskiy 
Форум ПРОГРАММИСТОВ » ПРОГРАММИРОВАНИЕ » Паскаль » помогите пожалуйста.СРОЧНОО!!
помогите пожалуйста.СРОЧНОО!!
помогите решить, пожалуйста!

вводится непустая последовательность символов,заканчивающихся точкой. отдельные слова в ней разделены пробелами.распечатать в лексикографическом порядке слова не содержащие ни одной буквы "а".
1 | Автор: dashaarhipkina | 2011-05-31, 22:50   |  Репутация: [ + 0 ]
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
2 | Автор: Berestovskiy | 2011-05-31, 23:01   |  Репутация: [ + 211 ]
Форум ПРОГРАММИСТОВ » ПРОГРАММИРОВАНИЕ » Паскаль » помогите пожалуйста.СРОЧНОО!!
Страница 1 из 11
Поиск: