Pascal

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

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

Question

Информатика

Инуся

3 июля, 02:16

Pascal

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

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

+2

Ответы (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.