Удалить в тексте, все слова которого разделены одним пробелом, первое слово, если в нём больше, чем 7 букв. (Школьный pascal)

Question

Агафангел

14 июля, 21:00

+4

Ответы (1)

Знаете ответ на вопрос?

Фирс · Answer 1

Var

s:string;

begin

readln (s) ;

if pos (' ', s) >8 then delete (s, 1, pos (' ', s)) ;

writeln (s) ;

end.