Question

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

Answer 1

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