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

Question

Информатика

Арсений

27 апреля, 21:58

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

+3

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