Предмет: Информатика,
автор: Luke69
Ввести с клавиатуры строку.Вывести на экран 2 слово.
Ответы
Автор ответа:
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.
Похожие вопросы
Предмет: Геометрия,
автор: iam8053
Предмет: Литература,
автор: daniilbyz
Предмет: Қазақ тiлi,
автор: turgunbekova7262
Предмет: Химия,
автор: решето
Предмет: Математика,
автор: Аноним