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

Question

Ипполит

5 сентября, 17:21

+1

Ответы (1)

Знаете ответ?

Паняша · Answer 1

Var

s:string;

begin

readln (s) ;

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

writeln (s) ;

end.