HELP!!!!!!!!!!!! - Паскаль, Turbo Pascal, PascalABC.NET

Artom · 11.05.2009, 11:38

Дана строка символов. Удалить из неё все пробелы!!!

DM_bite · 11.05.2009, 11:42

Код:

Program xd;
var s:string;
begin
 ReadLn(s);
  while pos(' ',s)<>0 do
    if s[i]=' ' then Delete(S, pos(' ',s), 1);
  WriteLn(s);
  ReadLn;
end.

Tkirill · 11.05.2009, 11:43

Код:

uses crt;
var
s:string;
begin
clrscr;
write(' -> ');
readln(s);
while pos(' ',s)<>0 do
delete(s,pos(' ',s),1);
writeln(S);
readln;
end.

Artom · 11.05.2009, 12:00

Большёе спасибо!!!!!!!!!!!!!!!!!!!!!!!!!

11.05.2009, 11:38	#1
Artom Пользователь Регистрация: 11.05.2009 Сообщений: 10	HELP!!!!!!!!!!!! Дана строка символов. Удалить из неё все пробелы!!!

11.05.2009, 11:42	#2
DM_bite Участник клуба Регистрация: 29.07.2008 Сообщений: 1,091	Код: `Program xd; var s:string; begin ReadLn(s); while pos(' ',s)<>0 do if s[i]=' ' then Delete(S, pos(' ',s), 1); WriteLn(s); ReadLn; end.` Кто бы ты ни был - не думай о себе слишком (с) Последний раз редактировалось DM_bite; 11.05.2009 в 11:48.

11.05.2009, 11:43	#3
Tkirill Форумчанин Регистрация: 22.12.2008 Сообщений: 104	Код: `uses crt; var s:string; begin clrscr; write(' -> '); readln(s); while pos(' ',s)<>0 do delete(s,pos(' ',s),1); writeln(S); readln; end.` @(o_0)@

11.05.2009, 12:00	#4
Artom Пользователь Регистрация: 11.05.2009 Сообщений: 10	Большёе спасибо!!!!!!!!!!!!!!!!!!!!!!!!!