Катерина
Профи
(514)
15 лет назад
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.
SopranO
Профи
(598)
15 лет назад
бла смотря какую!! ! если простую то сначало пиши
Program dog;
Uses wincrt;
var...дальше смотря какая программа в конце пишем END.
Если процедуры то
Program dog;
Uses wincrt;
Procedura vova;
readln;
var...
writeln...
end;
writeln...
.
.
.
end.
Gennady
Гений
(60243)
15 лет назад
Доброго времени суток.
Вот функция из библиотеки 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;
Как использовать в программе догадетесь?
Удачи!