ПОМОГИТЕ пожалуйста Ввести строку состоящая из двух слов, разделенным пробелом. Удалить первое слово и вывести получившую строку.
ПОМОГИТЕ пожалуйста
Ввести строку состоящая из двух слов, разделенным пробелом. Удалить первое слово и вывести получившую строку.
Гость
Ответ(ы) на вопрос:
Гость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.
Не нашли ответ?
Похожие вопросы