blob: f8bcf07255f285c3ad9c9acb69dadc7f13f93682 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
|
module test7;
import system;
var
s : array[64] of char;
len : integer;
procedure StringLength( s : array of char ) : integer;
var
i : integer;
len : integer;
begin
len := length( s );
i := 0;
while ( i < len ) and ( s[i] <> char( 0 ) ) do
i := i + 1
end;
return i
end
begin
system.readline( s );
len := StringLength( s );
system.writestring( "String: " );
system.writeline( s );
system.writestring( "Length: " );
system.writeinteger( len );
system.writeline( "" )
end
|