|
Помогите пожалуйста с решением задачи((( нужно завтра сдать(
|
|
|
Дана строка символов, состоящая из строчных латинских букв и пробелов. Группы символов, разделённые пробелами(одним или несколькими) и не содержащие пробелов внутри себя будем называть словами. Вывести на печать слова начинающиеся на букву "а" , и самое короткое из них
|
|
|
|
var
a,s,q:string;
i,j:integer;
begin
q:='111111111111111111111111111111111111111111111111111111111111111111111111';
readln(s);
for i:=1 to length(s) do
for j:=1 to length(s)-1 do
if (s[j]=' ')and(s[j+1]=' ') then delete(s,j,1);
repeat
if pos('a',s)<>0 then begin
delete(s,1,pos('a',s)-1);
a:=copy(s,1,pos(' ',s));
write(a);
delete(s,1,pos(' ',s));
if length(a)<length(q) then q:=a;
end;
until (pos('a',s)=0)or(pos(' ',s)=0);
writeln;
writeln(q);
end.
"Спасибо" принимается повышением репутации ( Зелёный плюсик:) ).Спасибо
Нужна помощь? Сюда: vkontakte.ru/berestovskiy
|
|
|
Нужна помощь? Сюда: vkontakte.ru/berestovskiy
|
|
|
|
|
в итоге получаю ответ ввиде множества единиц
|
|
|
|
а ты не утруднись и введи строку, где есть слова начинающиеся на букву а))
Нужна помощь? Сюда: vkontakte.ru/berestovskiy
|
|
|
Нужна помощь? Сюда: vkontakte.ru/berestovskiy
|
|
|
|
Quote (Berestovskiy) а ты не утруднись и введи строку, где есть слова начинающиеся на букву а))
№ 5 | Автор: dima6666 |
2012-06-09, 10:35 | Изменено: dima6666 - Сб, 2012-06-09, 10:36
|
Репутация: [ + 0 ]
|
|
|
№ 5 | Автор: dima6666 |
2012-06-09, 10:35 | Изменено: dima6666 - Сб, 2012-06-09, 10:36
|
Репутация: [ + 0 ]
|
|
|
|
Ну я ведь не на контестер слал код)
Конечно есть недочёты)
Удачи)
Нужна помощь? Сюда: vkontakte.ru/berestovskiy
|
|
|
|
