Паскаль. Дана символьная строка. Удалить из строки первое слово. Начало должно быть так: 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
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.
Не нашли ответ?
Похожие вопросы