Помогите составить программу на Pascal.

Question

Помогите составить программу на Pascal.

Михаил Байкин Знаток (304), закрыт 12 лет назад

Помогите написать программу на Pascal -"Убрать лишние пробелы из строки".

Answer 1

var
s:string;
i: integer;
Begin
Write('Vvedite striky');
Readln(s);

i:=1;
repiat
if s=' ' and s[i+1]=' ' then
delete(s,i+1,1);
i:=i+1;
until i+1>length(s);

End.

Answer 2

Капитан Гугл Искусственный Интеллект (145876) 12 лет назад

for i:=1 to chislo_probelov do
if probel in lishniy then delete(stroka,probel)

Answer 3

бла смотря какую!! ! если простую то сначало пиши
Program dog;
Uses wincrt;
var...дальше смотря какая программа в конце пишем END.
Если процедуры то
Program dog;
Uses wincrt;
Procedura vova;
readln;
var...
writeln...
end;
writeln...
.
.
.
end.

Answer 4

Доброго времени суток.

Вот функция из библиотеки RxLib. Удаляет все не единичные пробелы.

function DelSpace1(const S: string): string;
var
I: Integer;
begin
Result := S;
for I := Length(Result) downto 2 do begin
if (Result[ I ] = ' ') and (Result[ I - 1 ] = ' ') then
Delete(Result, I, 1);
end;
end;

Как использовать в программе догадетесь?

Удачи!