Новые сообщения · Правила  
  • Страница 1 из 1
  • 1
Модератор форума: 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 из 1
  • 1
Поиск: