Удаление всех пробелов в строке длинной 25 символов

@Blake_102 · Регистрация: 01.04.2010

Author24 — интернет-сервис помощи студентам

Всем hello!!! Помогите разработать программу для удаления всех пробелов в строке длинной 25 символов???
Зарание благодарен!!!

))

@Шутка · 07.10.2010, 23:49

Pascal

var
s:string;
i,j:integer;
begin
readln(s);
for i:=1 to length(s) do
begin
if s[i]=' ' then for j:=i to length(s) do
                       s[j]:=s[j+1];
end;
writeln(s);
end.

Проверяйте.
Если что не понятно - спрашивайте.

@Blake_102 · 07.10.2010, 23:56 **[ТС]**

Пишет, что ошибка времени выполнения, исходный индекс находится вне границ массива.

@Шутка · 08.10.2010, 00:03

Сообщение от Blake_102

Пишет, что ошибка времени выполнения, исходный индекс находится вне границ массива.

Незнаю. У меня всё работает на Pascal ABC..

@STGE · 08.10.2010, 00:07

не компилировалось

Pascal

uses crt;
var s: string[25]; i: byte;
begin
 clrscr;
 write ('введите исходную строку: ');
 readln (s);
 for i:=length (s) downto 1 do
  if s[i]=' ' then delete (s, i, 1);
 writeln ('изменённая строка: ',s);
end.

@Blake_102 6 / 7 / 0 Регистрация: 01.04.2010 Сообщений: 289
		1
	Удаление всех пробелов в строке длинной 25 символов 07.10.2010, 23:33. Показов 1790. Ответов 4 Метки нет (Все метки) Всем hello!!! Помогите разработать программу для удаления всех пробелов в строке длинной 25 символов??? Зарание благодарен!!!)) 0

@Blake_102 6 / 7 / 0 Регистрация: 01.04.2010 Сообщений: 289
	07.10.2010, 23:56 [ТС]	3
	Пишет, что ошибка времени выполнения, исходный индекс находится вне границ массива. 0

@Шутка code code 128 / 123 / 77 Регистрация: 11.10.2009 Сообщений: 375
	08.10.2010, 00:03	4
	Сообщение от Blake_102 Пишет, что ошибка времени выполнения, исходный индекс находится вне границ массива. Незнаю. У меня всё работает на Pascal ABC.. 0

	08.10.2010, 00:07

Удаление всех пробелов в строке длинной 25 символов

Решение