Лаба

[T_I_M_U_N]

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

[Consol]

сделано на pascal

uses crt;
var s:string;
     i:byte;
begin
 clrscr;
 writeln('Введите строку');
 readln(s);
 i:=1;
 while i<=length(s) do
 if s[i]=' ' then delete(s,i,1)
 else inc(i);
 writeln(s);
 readln;
end.