Предмет: Информатика, автор: Luke69

Ввести с клавиатуры строку.Вывести на экран 2 слово.

Ответы

Автор ответа: Kitsu
0

var a:string;

begin

readln(a);

a:=copy(a,pos(' ',a)+1,length(a)-pos(' ',a));

a:=copy(a,1,pos(' ',a));

writeln(a);

end.

Похожие вопросы