Цикл while в paskal abc удалить все пробелы в сторке

Lanatm12 Lanatm12    3   02.10.2019 19:20    0

Ответы
adamka5551p0cigl adamka5551p0cigl  09.10.2020 12:20

var s:string;

begin

read(s);

while pos(' ',s)>0 do

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

write(s)

end.

ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика