Информатика, вопрос задал fvfvaf , 9 лет назад

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

Ответы на вопрос

Ответил MarshalXaker
0
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.

Один из вариантов решения 
Новые вопросы