Опубликовано 12.06.2017 по предмету Информатика от Гость >> <<

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

Ответ оставил Гость

Program znanija;
var s,r:string;   
i:integer;
begin
Read(s);
for i:=1 to length(s) do 
begin   
if s[i] <> then r:=r+s[i]; 
end;
Writeln(r);
end.

Один из вариантов решения