Составить программу, которая в тексте удаляет все пробелы.

Question

Информатика

Рим

25 марта, 08:42

Составить программу, которая в тексте удаляет все пробелы.

+5

Ответы (1)

Знаете ответ на вопрос?

Андронка · Answer 1

Program z1;

var st:string;

begin

writeln ('Введите строку') ;

readln (st) ;

while (pos (' ', st) 0) do

begin

delete (st, pos (' ', st), 1) ;

end;

writeln (st) ;

readln;

end.