Опубликовано 12.06.2017 по предмету Информатика от Гость >> <<

Паскаль. Дана символьная строка. Удалить из строки первое слово. Начало должно быть так:
var a:string; i,k:integer;
begin
writeln(введи строку:);
readln(a);
for i:= 1 to length(a) do
if a[i]

Ответ оставил Гость

Var a: string;
i,k:integer;
begin
writeln(Введите строку:);
readln(a);
for i:=1 to length(a) do begin
if a[i]= then begin
k:=i;
break;
end;
end;
write(Строка: );
if k<>0 then begin
delete(a,1,k);
writeln(a);
end
else writeln();
end.