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.

Answer 2

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

Answer 3

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