Правила форума
StrEnd.PASЯзык:
Русский
English
{ Пример программы для функции StrEnd }
uses Strings, Crt;
var
S : array[0 .. 79] of Char;
begin
ReadLn(S);
WriteLn('Длина строки = ', StrEnd(S) - S);
end.
var
S : array[0 .. 79] of Char;
begin
ReadLn(S);
WriteLn('Длина строки = ', StrEnd(S) - S);
end.
::
::
::
