Language:
Русский
English
{Length.PAS}
▀▀▀▀▀▀▀▀▀▀▀▀▀▀
{Sample code for the Length function.}
uses WinCrt;
var
S: String;
begin
Readln (S);
Writeln('"', S, '"');
Writeln('length = ', Length(S));
end.
Length.PAS |
Language: {Length.PAS} uses WinCrt; var |
|
|