Правила форума
Pos.PASЯзык:
Русский
English
{Pos.PAS}
{ Пример программы для функци Pos }
var
S : String;
begin
S := ' 123.5';
{ Преобразовываем пробелы в нули }
while Pos(' ', S) > 0 do
S[Pos(' ', S)] := '0';
WriteLn(S);
end.
S : String;
begin
S := ' 123.5';
{ Преобразовываем пробелы в нули }
while Pos(' ', S) > 0 do
S[Pos(' ', S)] := '0';
WriteLn(S);
end.
::
::
::
