Language:
Русский
English
{Pos.PAS}
▀▀▀▀▀▀▀▀▀▀▀
{Sample code for the Pos function.}
var S: String;
begin
S := ' 123.5';
{ Convert spaces to zeroes }
while Pos(' ', S) > 0 do
S[Pos(' ', S)] := '0';
end.
 Pos.PAS |
Правила форума :: Скачать Pascal :: FAQ // Ада–2020 :: Скачать GNAT :: OEM–2015 :: Ada -> C/C++
|
|
|
|
|
|
Код для вставки:
 ::
 ::
 ::
ГОСТ ::
Поделиться:
|
|