Pascal

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

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

Question

Информатика

Таисия

1 августа, 12:02

Pascal

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

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

+3

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