Цикл While в Paskal ABC Удалить все пробелы в сторке

Question

Цикл While в Paskal ABC Удалить все пробелы в сторке

Answer 1

var s:string;

begin

read(s);

while pos(' ',s)>0 do

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

write(s)

end.

Comments

это нормально что такая маленькая программа получилась?

---

да, она же работает правильно =)