С клавиатуры вводится строка символов. Удалить из строки все слова начинающиеся на букву А.

@Pasta · Регистрация: 07.06.2012

Author24 — интернет-сервис помощи студентам

№2
Решите задачу с использование алгоритмического языка.
Задача.
С клавиатуры вводится строка символов. Удалить из строки все слова начинающиеся на букву А.
составить блок-схему программы.

@CodeR · 22.06.2012, 15:48

Pascal

Var s,s1,s2:string;
Begin
    write('Введите строку: ');readln(s);
    s:=s+' ';s2:='';
    While Pos(' ',s)<>0 do
     Begin
      s1:=Copy(s,1,Pos(' ',s)-1);
      Delete(s,1,Pos(' ',s));
      if s1[1]<>'А' then s2:=s2+' '+s1;
     End;
    writeln('Полученная строка: ',s2);
    readln;
End.

@Pasta 0 / 0 / 0 Регистрация: 07.06.2012 Сообщений: 3
		1
	С клавиатуры вводится строка символов. Удалить из строки все слова начинающиеся на букву А. 22.06.2012, 15:16. Показов 4467. Ответов 1 Метки нет (Все метки) №2 Решите задачу с использование алгоритмического языка. Задача. С клавиатуры вводится строка символов. Удалить из строки все слова начинающиеся на букву А. составить блок-схему программы. 0

	22.06.2012, 15:48

С клавиатуры вводится строка символов. Удалить из строки все слова начинающиеся на букву А.

Решение