[PASKAL] Составить программку вычеркивания из текста всех пробеловПомогите решить задачу !

[PASKAL] Составить программку вычеркивания из текста всех пробелов
Помогите решить задачу !

Задать свой вопрос
2 ответа
Var
s: string;
i: integer;
begin
readln(s);
for i:=length(s) downto 1 do
if s[i] = ' ' then
delete(s, i, 1);
writeln(s);
end.

Пример входных данных: Мама мыла раму
Пример выходных данных: Мамамылараму
Стефания Фирсенко
Спасибо громадное !))))
//Pascal ABC.NET v3.0 сборка 1111

Var
 s:string;
begin
 readln(s);
 while pos(' ',s)lt;gt;0 do
 delete(s,pos(' ',s),1);
 writeln(s);
end.

Пример ввода:
Cat is fine too
Пример вывода:
Catisfinetoo
, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт