Language:
Русский
English
{StrEnd.PAS}
▀▀▀▀▀▀▀▀▀▀▀▀▀▀
{Sample code for the StrEnd function.}
uses Strings, WinCrt;
var
S: array[0..79] of Char;
begin
Readln(S);
Writeln('String length is ', StrEnd(S) - S);
end.
 StrEnd.PAS |
Правила форума :: Скачать Pascal :: FAQ // Ада–2020 :: Скачать GNAT :: OEM–2015 :: Ada -> C/C++
|
|
|
|
|
|
Код для вставки:
 ::
 ::
 ::
ГОСТ ::
Поделиться:
|
|