Связь с администрацией сайта:       

demo

Среди толпы я одинок

Pascal Напечатать все слова, которые начинаются с буквы а.

Дана строка длиной не более 255 символов. Строка содержит слова, разделенные между собой пробелами. Напечатать все слова, которые начинаются с буквы а.

 

 

var
s : string[255];
i : integer;
  begin
    writeln('Введите строку.');
    readln(s);
    s := ' ' + s; {добавляем в начало пробел}
    i := 1;
     if length(s) > 1 then
       repeat
          if s[i] = ' ' then
           if s[i+1] = ' ' then
        begin
          delete(s, i+1, 1);
           i := i - 1;
        end;
         inc(i);
       until i = length(s);
      i := 2;
 
while i <= length(s) do
  begin
 
   if (s[i] = 'a') and (s[i-1] = ' ') then
     begin
       while (s[i] <> ' ') and (i <= length(s)) do
        begin
         write(s[i]);
         inc(i);
        end;
      writeln;
     end;
 inc(i);
 
 readln;
end.

 

 

Голосуй
(0 Голоса)
Оставьте комментарий

Поля, отмеченные звездочкой(*) обязательны для заполнения. HTML теги не приветствуются.

Вход на сайт