Pascal

1. В строке, любое количество подряд следующих пробелов замените единственным пробелом.

2/Вычислите длину самого короткого слова в предложении из трех слов, разделенных пробелами.

Question

Информатика

Миропия

1 апреля, 16:30

Pascal

1. В строке, любое количество подряд следующих пробелов замените единственным пробелом.

2/Вычислите длину самого короткого слова в предложении из трех слов, разделенных пробелами.

+1

Ответы (1)

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

Лукия · Answer 1

uses crt; var s:string; begin clrscr; writeln ('Введите строку, содержащую группы пробелов:') ; readln (s) ; while pos (' ', s) >0 do delete (s, pos (' ', s),1) ; write (s) ; readln end.