Написать процедуру, удаляющую из строки первое слово - Pascal ABC

Формулировка задачи:

Написать процедуру, удаляющую из строки первое слово.

Код к задаче: «Написать процедуру, удаляющую из строки первое слово - Pascal ABC»

textual
uses crt;
procedure DelFirstWord(var s:string);
var i:integer; b:boolean;
 begin
 b:=false;
 for i:=1 to length(s) do
  if s[i] = ' ' then b:=true;
 i:=1;
 if b = true then
  begin
  while (s[i]<>' ') do
   inc(i);
  s:=copy(s,i+1,length(s));
  end;
 end;
 
var s:string;
begin
write('Введите слово: ');
readln(s);
DelFirstWord(s);
writeln(s);
end.

6   голосов, оценка 4.167 из 5


СОХРАНИТЬ ССЫЛКУ
Похожие ответы