ПОМОГИТЕ пожалуйста



Ввести строку состоящая из двух слов, разделенным пробелом. Удалить первое слово и вывести получившую строку.

1

Ответы и объяснения

Лучший Ответ!
  • SkyBy
  • главный мозг
2013-12-18T23:34:51+04:00
Var a,c: string; k,p: integer;
begin
write ('Введите строку: '); read (a);
k:=length(a);
p:=pos(' ', a);
c:=copy(a, p + 1, k - p + 1);
writeln ('Результат: ', c);
end.